Code: Select all
Pathy= %A_WorkingDir%\new.xlsx
X1X := ComObjCreate("Excel.Application") X1X.Workbooks.Open(Pathy)
X1X.Visible := true
-and second question if is possible open excel new.xlsx and make new sheets with command
Code: Select all
Pathy= %A_WorkingDir%\new.xlsx
X1X := ComObjCreate("Excel.Application") X1X.Workbooks.Open(Pathy)
X1X.Visible := true
Code: Select all
#SingleInstance, Force
ObjExcel := ComObjCreate("Excel.Application")
ObjExcel.Visible := True
ObjWorkbook := ObjExcel.Workbooks.Add()
return
F1::
ObjWorkbook.Worksheets.Add() ; Add Worksheet
return
F2::
ObjWorkbook.Worksheets(1).Select ; Select Worksheet
return
F3::
ObjWorkbook.Worksheets("Sheet3").Select ; Select Worksheet by Name
return
Code: Select all
pathy := A_WorkingDir . "\new.xlsx"
xls := ComObjCreate("Excel.Application")
xls.visible := true
xls.workbooks.open(pathy)
xls.sheets("JFK").select ; selects the sheet
return
I use Activate instead of Select but I don't know if there is a great deal of difference.king-of-hearts wrote:Code: Select all
pathy := A_WorkingDir . "\new.xlsx" xls := ComObjCreate("Excel.Application") xls.visible := true xls.workbooks.open(pathy) xls.sheets("JFK").select ; selects the sheet return
Code: Select all
xlApp := ComObjActive("Excel.Application")
xlApp.Sheets(2).Activate ; Can use index or specific name
Code: Select all
oExcel.Worksheets.Add() ; Add Worksheet
oExcel.Sheets("sheet1").Name := "Summary"
Code: Select all
var="sheet1"
oExcel.Worksheets.Add() ; Add Worksheet
oExcel.Sheets(var).Name := "Summary"
;didnt work
Code: Select all
var="sheet1"
oExcel.Worksheets.Add() ; Add Worksheet
oExcel.Sheets(%var%).Name := "Summary"
;this code too didnt work
Code: Select all
xls := ComObjCreate("Excel.Application")
xls.visible := true
xls.workbooks.add()
var := "Summary"
xls.sheets(1).name := var
xls.sheets(var).select ; selects the sheet
Users browsing this forum: Google [Bot] and 142 guests