是否可以在excel VBA中使用字符串变量作为URL？

正如您在下面看到的，我使用fileName作为字符串变量，它在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

---

“D:\CG FILE\”&filename

您需要连接2

您的目录变量和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

---

Hello Buddy感谢您的回复，但是连接是在这一步完成的fileName=Dir（directory&“*.cg？？？”）Hello Buddy感谢您提供的解决方案，它可以按需要工作。