vba如何实现将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL中
来源:百度文库 编辑:神马文学网 时间:2024/04/29 13:35:35
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件
wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前
End Sub
这样是最简单的代码了,但是有些限制:如果工作表的某些单元格中字符数超过255个,则副本的该单元格中只保留前255个字符。
如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中,用下列代码:
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks("book2") '先打开要复制的文件
wkbk.Sheets(1).UsedRange.Copy '复制源文件中第一个工作表的内容
ThisWorkbook.Sheets(1).Range("A1").Paste '粘贴到当前工作簿第一个工作表中
End Sub
另外,欢迎到office精英俱乐部http://www.officefans.net/cdb/index.php来作客:)
------------引用-------------------
我想把源文件设置成选择打开(INPUT)的形式.
能不能不打开源文件,直接在当前文件上COPY啊?
-----------回答--------------------------
如果用VB的open **** for input语句打开excel,那样得不到任何有用数据的,因为xls文件不是以文本方式保存,而是以二进制方式保存的。
Dim wkbk As Workbook
Set wkbk = Workbooks.open("源文件.xls") '先打开要复制的文件
wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前
End Sub
这样是最简单的代码了,但是有些限制:如果工作表的某些单元格中字符数超过255个,则副本的该单元格中只保留前255个字符。
如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中,用下列代码:
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks("book2") '先打开要复制的文件
wkbk.Sheets(1).UsedRange.Copy '复制源文件中第一个工作表的内容
ThisWorkbook.Sheets(1).Range("A1").Paste '粘贴到当前工作簿第一个工作表中
End Sub
另外,欢迎到office精英俱乐部http://www.officefans.net/cdb/index.php来作客:)
------------引用-------------------
我想把源文件设置成选择打开(INPUT)的形式.
能不能不打开源文件,直接在当前文件上COPY啊?
-----------回答--------------------------
如果用VB的open **** for input语句打开excel,那样得不到任何有用数据的,因为xls文件不是以文本方式保存,而是以二进制方式保存的。
vba如何实现将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL中
把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
excel中如何通过VBA打开word文件和ppt文件?
在word中插入随excel文件更新的表格
在Excel中创建一个常用文件菜单
如何成功复制不让复制的文件
怎么样删除EXCEL复制到txt文件中的空格?
用DLL实现把数据库的记录导出到EXCEL中(VB) - 应用程序 - VB教程
ASP导出excel表格的方法(修改excel文件)
vc读写Excel文件的方法
各种Excel VBA的命令
Excel中实现多条件求和的三种方法
Excel中实现多条件求和的三种方法
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel...
向Excel中插入图表并保存Excel - .Net创建Exce文件实现插入修改方法总结 ...
ASP 中实现文件上传方法的研究
如何在Windows 系统中实现高效率的文件搜索? - 已解决 - 搜搜问问
Excel [分享]EXCEL文件肥胖的的原因分析及减肥 - Excel基础应用 - Ex...
excel中单元格的使用
excel中单元格的使用
Excel中单元格的引用.
excel中单元格的使用
excel中单元格的使用