这是代码:
strOut="C:\Users\....file.xlsx"
xlSheetName="WA100!"
DoCmd.TransferSpreadsheet TransferType:=acLink, TableName:="excelLink", FileName:=strOut, HasFieldNames:=True, Range:=xlSheetName
有没有理由这不起作用?对我来说,它在语法上似乎是正确的。
列出所有工作表名称,看看它们是否与您认为的一样。
Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句