将文件名从源 Excel 工作簿复制到目标 Excel 工作簿

Question

有没有办法从打开的 Excel 工作簿中复制文件名，并将其粘贴到目标工作簿中？我有一个从打开的工作簿中复制数据的宏，但我不确定如何获取文件名。

这是我必须从打开的工作簿中复制整个选择的宏。我将如何将文件名添加到此？谢谢！

Sub LazyBill()
' LazyBill Macro
'
' Keyboard Shortcut: Ctrl+d
'
Dim SFC_Ver
Dim WB1 As Workbook, WbName As String
Dim WB2 As Workbook, Wb2Name As String
'Dim Ksearch As Range
Dim Kvalue As String
Set WB1 = ActiveWorkbook
    WbName = ActiveWorkbook.Name
'Open .cvs file to input
'MsgBox ("Once you click OK a File Open window will appear. Browse to the .cvs file that you wish to add to the trend data and click open")
    Filename = False
    Filename = Application.GetOpenFilename
        If Filename = False Then
            CloseMaster
        End If
        
Dim sStarDir As String
sStarDir = CurDir
    ChDir "\\sw\data\****"
Application.DefaultFilePath = sStarDir

    Workbooks.Open Filename:= _
    Filename
            Set WB2 = ActiveWorkbook
                Wb2Name = ActiveWorkbook.Name
    Cells.Select
    Selection.Copy
    Windows(WbName).Activate
    Sheets("DATA").Select
'Paste data into trend data file
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = 0
'Close Trend data .cvs file
    Windows(Wb2Name).Activate
            ActiveWorkbook.Close False

End Sub

Answer 1

这是一个示例 - 调整目标范围以适应：

Sub LazyBill()

    Dim WB1 As Workbook
    Dim WB2 As Workbook
    Dim rng As Range, destWs As Worksheet, Filename
    
    Set WB1 = ActiveWorkbook
    
    'Open .cvs file to input  '.csv ?
    'MsgBox ("Once you click OK a File Open window will appear. " & _
      "Browse to the .cvs file that you wish to add to the trend data and click open")
    Filename = False
    Filename = Application.GetOpenFilename
    If Filename = False Then
        CloseMaster
        'Exit Sub ' ?
    End If
        
    Set WB2 = Workbooks.Open(Filename:=Filename) 'set reference on file open
    Set rng = WB2.Worksheets(1).UsedRange
    
    Set destWs = WB1.Worksheets("DATA")
    
    destWs.Range("A1").Value = WB2.Path
    destWs.Range("A2").Value = WB2.Name
    rng.Copy destWs.Range("A4")
    WB2.Close False
    
    Application.CutCopyMode = False
    
End Sub

请注意，您可以直接使用工作簿对象，而不是通过名称来引用它们。