通过阅读多个txt文件，我可以逐步浏览并看到每个文件都在处理中，但电子表格上没有任何内容 打开电子表格时，请尝试textfile.Sheets（1）.UsedRange.Copy在Microsoft Excel对象文件夹下的（personal.xlsb）下

通过阅读多个txt文件，我可以逐步浏览并看到每个文件都在处理中，但电子表格上没有任何内容

---

打开电子表格时，请尝试

textfile.Sheets（1）.UsedRange.Copy

在Microsoft Excel对象文件夹下的（personal.xlsb）下打开电子表格。有人知道为什么它会出现在那里，而不是作为附加选项卡出现在活动工作表中代码在哪里吗？是否在要添加工作表的同一工作簿中？我正在编辑器中运行它。我有两个不同的项目，从第一个项目开始运行，数据在第二个项目结束。您需要用希望添加工作表的特定工作簿替换

工作簿（1）

。

       OpenFiles = Application.GetOpenFilename(Title:="Select File(s) to Import", `
                         `MultiSelect:=True)
       For cntr = 1 To Application.CountA(OpenFiles)
             Set TextFile = Workbooks.Open(OpenFiles(cntr))
        
           TextFile.Sheets(1).Range("A1").CurrentRegion.Copy
           Workbooks(1).Activate
           Workbooks(1).Worksheets.Add
           ActiveSheet.Paste
        
           TextFile.Close
        Next cntr