vba读取另一个工作簿中某个sheet中的内容

zl33333

求助各位

A工作簿中的sheet1自动读取一个固定路径下的B工作簿中sheet2中的内容，并写入到A的sheet1中啊

每个月需要重复读取，需要把之前的全清除掉


修正下需求：

A工作簿直接复制固定路径下的B工作簿中的sheet2，如果A工作簿中有sheet2，直接删除A中的sheet2，再复制B中的sheet2，感谢

A1233515

可以在论坛搜索一下，像这种问题，在论坛都是一搜一大把

townyee

1、打开文件A，
2、执行程序：清除，打开文件B，读取
3、写入B，关闭B，保存A
可以参考这个
工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹-Excel VBA程序开发-ExcelHome技术论坛 -
http://club.excelhome.net/thread-1409141-1-1.html

aman1516

试试，用公式就可以不打开工作薄取数：

1. Sub GetDat()
   
2.     Dim strFN As String, ownd As Window
   
3.     strFN = ThisWorkbook.Path & "\[B.xls]"      'B工作薄 实际路径 和 文件名
   
4.     With Worksheets("Sheet1").Range("A1:Z255")      'A工作薄 工作表名 及 取数据区域（对应B工作薄的数据区域）
   
5.         .FormulaR1C1 = "='" & strFN & "Sheet2'!rc"    'Sheet2： B工作薄 工作表名
   
6.         .Value = .Value
   
7.     End With
   
8.     ActiveWindow.DisplayZeros = False
   
9. End Sub

复制代码

zl33333

aman1516 发表于 2021-5-12 20:41
试试，用公式就可以不打开工作薄取数：

谢谢，可以用。
但是看了下，可能我描述的不对，现在只有内容读取，复制过来没有格式了，能不能帮我在改善下

A工作簿直接复制固定路径下的B工作簿中的sheet2，如果A工作簿中有sheet2，直接删除A中的sheet2，再复制B中的sheet2，感谢

zl33333

aman1516 发表于 2021-5-12 20:41
试试，用公式就可以不打开工作薄取数：

又发现个问题，在数据区域内如果单元格没有内容，复制过来单元格看不到内容，但选中这个单元格后会显示“0”