是否可以在Excel VBA中使用stringvariables作为URL？
正如你可以看到下面我已经使用fileName作为stringvariables，在URL中使用。 当我运行代码时，我得到一个错误，指出“运行时错误”-2147217376（80041020）系统找不到指定的对象。 其实，我想从.cg文件复制数据到Excel。 任何替代方法也将做。 请帮忙。
“我的代码”
Sub ImportCG() Dim directory As String, fileName As String directory = "D:\CG FILE" fileName = Dir(directory & "*.cg??") ActiveWorkbook.Worksheets.Add ActiveWorkbook.XmlImport Url:= _ "D:\CG FILE\filename" _ , ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1") 'Add CG_List Set NewSheet = Sheets.Add(Type:=xlWorksheet) ActiveSheet.Name = "CG_List" 'Copy contents to Component Type List Columns("D:D").Select Selection.Copy Sheets("ComponentTypeList").Select Columns("A:A").Select ActiveSheet.Paste Sheets("CG_List").Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 Columns("G:G").Select Application.CutCopyMode = False Selection.Copy Sheets("ComponentTypeList").Select Columns("B:B").Select ActiveSheet.Paste Range("B15").Select End Sub 你的目录variables和URL需要一些更正
Sub ImportCG() Dim directory As String, fileName As String directory = "D:\CG FILE\" fileName = Dir(directory & "*.cg??") ActiveWorkbook.Worksheets.Add ActiveWorkbook.XmlImport Url:= _ directory & filename _ , ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1") 'Add CG_List Set NewSheet = Sheets.Add(Type:=xlWorksheet) ActiveSheet.Name = "CG_List" 'Copy contents to Component Type List Columns("D:D").Select Selection.Copy Sheets("ComponentTypeList").Select Columns("A:A").Select ActiveSheet.Paste Sheets("CG_List").Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 Columns("G:G").Select Application.CutCopyMode = False Selection.Copy Sheets("ComponentTypeList").Select Columns("B:B").Select ActiveSheet.Paste Range("B15").Select End Sub
"D:\CG FILE\" & filename你需要连接2