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

【问题标题】：Write name of imported file in sheet1在 sheet1 中写入导入文件的名称
【发布时间】：2021-09-01 22:00:10
【问题描述】：

我需要你的帮助。我有一个在我的 Excel 中导入数据的代码。现在我需要将导入数据的文件名保存在 Sheet 1 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

【问题讨论】：

你做了什么尝试？你的问题在哪里做？什么地方出了错？你的问题是什么（你没有问）。

标签： excel vba import filenames

【解决方案1】：

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

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 将为您提供包含文件名的填充文件路径。

【讨论】：

我已经接受了答案！谢谢干杯！