Excel COM add Table Topic is solved
Posted: 22 Jan 2019, 02:33
Can someone convert this marco into AHK code? I want to add Table, but don't know how to convert this marco :/
I have tried to convert to this code, but I get an error on Add part. It says that parameters are incorrect.
I'm trying to pass parameters from here:
https://docs.microsoft.com/en-us/office/vba/api/excel.listobjects.add
SOLVED:
the code is:
Code: Select all
Columns("A:D").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A:$D"), , xlYes).Name = _
"Table4"
Columns("A:D").Select
ActiveSheet.ListObjects("Table4").TableStyle = "TableStyleMedium2"
Code: Select all
XL.Columns("A:D").Select
XL.ActiveSheet.ListObjects.Add(1,"$A:$D",, 1, "Table4")
XL.Columns("A:D").Select
XL.ActiveSheet.ListObjects("Table4").TableStyle := "TableStyleMedium2"
https://docs.microsoft.com/en-us/office/vba/api/excel.listobjects.add
SOLVED:
the code is:
Code: Select all
XL.Range("A:D").Select
XL.ActiveSheet.ListObjects.Add(1, XL.Range("$A:$D"),_, 1).Name := "MyTestTable2"
XL.Range("MyTestTable2[[#All]]").Select
XL.ActiveSheet.ListObjects("MyTestTable2").TableStyle := "TableStyleMedium2"
XL.Range("A1").Select