跨工作簿拷贝，选区颜色数据都过去了，批注没过去怎么回事？

renahu · 发表于 2019-1-20 10:38

Selection.Copy
FileName = ThisWorkbook.Path & "\测试.xlsm"
SheetName = ActiveSheet.Name
Set xlApp = CreateObject("Excel.Application")          '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName)          '打开已经存在的EXCEL工作簿文件
xlApp.Visible = False                                  '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName)             '设置活动工作表
xlSheet.Range(Selection.Areas(1)(1).Address).Select
xlSheet.Paste

renahu · 发表于 2019-1-20 12:02

这个问题跟excel版本有关吗，我的是2010

renahu · 发表于 2019-1-22 15:48

难道用vba的copy然后paste进行跨工作簿的复制粘贴还真不适用于批注？

		自动登录	找回密码
密码			免费注册

[求助] 跨工作簿拷贝，选区颜色数据都过去了，批注没过去怎么回事？