在AHK中运行VBA的字符串

Question

I am creating an AHK script to manipulate an excel spreadsheet which necessitates the use of VBA. I know how to use single lines of VBA within AHK by converting them to COM calls (like Xl.Worksheets(1).ShowAllData ), but what I need to do now is run a series of commands.

Worksheets(1).ShowAllData
With Intersect(Columns("G"), ActiveSheet.UsedRange)
 .Replace "0*", "#N/A", xlPart
 .SpecialCells(xlConstants, xlErrors).EntireRow.Delete
End With

I tried simply placing Xl (my COM object handle) in front of various sections of this code, and it didn't help. Like this:

#j::
 Xl.Worksheets(1).ShowAllData
 Xl.With Intersect(Columns("G"), ActiveSheet.UsedRange)
  Xl.Replace "0*", "#N/A", xlPart
  Xl.SpecialCells(xlConstants, xlErrors).EntireRow.Delete
 Xl.End With
Return

AHK seems to have troubles with more complicated VBA commands. For instance, I can create a new sheet, with Xl.Worksheets.Add , but if I try to add a sheet and name it, like this: Xl.Worksheets.Add().Name = "MySheet" it freaks out.

What am I missing? Thanks!! Paul

Answer 1

With is a compiling statement. Using it or not using it doesn't change what your program does, though using it makes it a bit faster.

Intersect(Columns("G"), ActiveSheet.UsedRange).Replace "0*", "#N/A", xlPart
Intersect(Columns("G"), ActiveSheet.UsedRange).SpecialCells(xlConstants, xlErrors).EntireRow.Delete

Above is same code as yours without using With .

Saying you are missing the constants is a stupid thing to say. You do not get a special version of Excel different to everyone else. Cause they are there. Use SEARCH in Object Browser.

PS: With is part of VBA. Everything else you are doing has nothing to do with VBA but with Excel's Object. The two are quite separate. You are NOT writing VBA code but using Excel via COM in your language. VBA has nothing to do with it which is why with won't work.