Windows 10: how to get list of sub registry keys in vba?

how to get list of sub registry keys in vba?

:)

 

Help with Excel VBA Problem?

Can someone help me code the following VBA problem:

"Assume you have a mailing list file. This file is currently the active workbook, and the active worksheet of this book has full name in coloumn starting in cell A1, with the last name last and everything in uppercase letters (such as STEPHEN E. LEE). Write a sub that counts the number of names in the list with last name LEE and then displays the count in a MsgBox. Not that there might be last names such as KLEE, which should not be counted."

Thanks!

 

Cannot write to Registry

It seems your assumption is incorrect. This key does not normally exist although your program assumes it does. You have these options:

• Inform the author of your program that his code must create the key unless it already exists.
• Create the key manually, using regedit.exe.
• Create the key by invoking this command:
  
  reg.exe add "HKCU\Software\VB and VBA Program settings"

 

123456 vba

How to automate already Opened IE browser using excel Macros?

Steps:
Step 1: Open VBA editor on a new excel file and create a new module.
Step 2: Copy below code in the vba module.

Sub accessExistingIEBrowser()

On Error Resume Next

boolWindowFound = False
Set objShell = CreateObject("Shell.Application")
WinCount = objShell.Windows.Count
For winNo = 0 To (WinCount - 1)

strURL = objShell.Windows(winNo).document.Location
strTitle = objShell.Windows(winNo).document.Title
If strTitle Like "Sample Form" Then
Set IE = objShell.Windows(winNo)
boolWindowFound = True
Exit For
Else
End If

Next

If boolWindowFound Then
Set doc = IE.document
doc.getElementsByName("fname")(0).Value = "test"
End If

End Sub

-----------------------------------

How to automate data entry on a Web page using excel macros?

Pre-requisites:

1 . On the Macro Window, Insert a new module
2. Go to Tools/References
3. Select Microsoft Internet Controls
4. Select Microsoft HTML Object Library

Sample code given below:

Sub dataEntry()

Dim IE As Object
Dim doc As HTMLDocument

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.Navigate "Lets Automate"

Do While IE.Busy Or IE.ReadyState <> 4
Application.Wait DateAdd("s", 1, Now)
Loop

Set doc = IE.Document

doc.getElementById("num1").Value = 5
doc.getElementById("num2").Value = 4
doc.getElementById("btnCalculate").Click


End Sub