'请问: 文件名称在C1单元格内，如何修改才能打开此文件？

无为123456

Sub 打开桌面文件夹内的文件()


'打开桌面文件内的某.xls表

Application.DisplayAlerts = False
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\Administrator\Desktop\文件\&Worksheets(1).[C1]&.xls")


End Sub

请问: 文件名称在C1单元格内，如何修改才能打开此文件？

Sheet1--C1

excel助手

Set wb = Workbooks.Open("C:\Users\Administrator\Desktop\文件\" & Worksheets(1).[C1] & ".xls")

excel助手

Sub 打开桌面文件夹内的文件()
'打开桌面文件内的某.xls表
Application.DisplayAlerts = False
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\Administrator\Desktop\文件\" & Sheets("Sheet1").[C1] & ".xls")
End Sub

无为123456

Sheet1--C1
C:\Users\Administrator\Desktop\文件
运行提示，找不到此文件，请检查文件名的拼写

excel助手

你文件的完整路径是什么？

无为123456

谢谢  真好，

无为123456

已解决，谢谢

无为123456

  Windows("&Sheets("Sheet1").[C1] & ".xls").Activate

请求：选择C1单元格文件名的文件，此VB请帮忙改一下

无为123456

Sub 复制原表()
'
' Macro1 Macro
'

'
    Windows("&Sheets("Sheet1").[C1] & ".xls").Activate
    Range("A1:G22").Select
    Selection.Copy
    Windows("汇总表2015.xlsm").Activate
    Sheets("导入").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub