东方红1304 拖拉机:vba如何实现将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL中
来源:百度文库 编辑:中财网 时间:2024/04/28 03:54:59
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文件不是以文本方式保存,而是以二进制方式保存的。
如何将一个Excel表格中的指定的表格中的内容复制到另外一个Excel表格中的指定表格中(最好使用VBA)?
excel vba 中如何得到一串文件名
Excel中如何封装VBA 代码
Excel VBA中EXCEL对象?
如何将下列代码在一个wave文件中实现换背景的功能???
C#中如何实现将文本和图形同时写入一个文件
在excel中,如何在一个单元格实现换行操作?
利用vba将文件另存为一个新的文件
如何使用vba调入其它EXCEL文件中的数据
如何使用visio的vba调用excel文件?
excel中,如何这样实现?
excel中,如何这样实现??
excel中,如何这样实现??
excel中,如何这样实现???
excel中,如何这样实现??
VB.NET中如何将DataGrid数据写入Excel文件?
如何将EXCEL的文件发到对方的邮箱中
vba中如何实现取sql数据库数据?
VBA 中 如何实现 调用 ctrl+w 快捷键
请问如何用asp实现将Excel文件导入到access数据库中( 急! 急!急!)
excel中VBA的问题
作一个excel-VBA宏
Excel 文件中,我想用实现:
在EXCEL中如何将一个单元格差分?