在 sheet1 中写入导入文件的名称

Question

我需要你的帮助。我有一个代码可以在我的 Excel 中导入数据。现在我需要将导入数据的文件名保存在Sheet1 B20。示例：我打开一个名为“Football123.xls”的 Excel 文件。比这应该写在 B20

行的 Sheet1(table1) 中

谢谢！

到目前为止我的代码：

Sub Import1()


Dim FileToOpen As Variant
Dim OpenBook As Workbook


                                                                                                                
FileToOpen = Application.GetOpenFilename(Title:="Browse Excel & Import", FileFilter:="Excel_Datei (*.XLS*),*xls*")
If FileToOpen <> False Then
    
    Set OpenBook = Application.Workbooks.Open(FileToOpen)
    OpenBook.Sheets(2).Range("A:AA").Copy
    ThisWorkbook.Worksheets("table1").Range("A1").PasteSpecial xlPasteValues
  
    OpenBook.Close False

End If

End Sub

Answer 1

打开文件后，您可以使用 [Variable].Name，请参阅下面的内容以了解可以添加的位置。

Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(2).Range("A:AA").Copy
ThisWorkbook.Worksheets("table1").Range("A1").PasteSpecial xlPasteValues

ThisWorkbook.Worksheets("table1").Range("B20").Value = OpenBook.Name

OpenBook.Close False

[Variable].Name 将为您提供引用文件的名称。 [Variable].FullName 将为您提供包含文件名的填充文件路径。

在 sheet1 中写入导入文件的名称

Write name of imported file in sheet1

import

excel

filenames

vba