进入VBA代码编辑界面2. 简单的函数介绍，在复制粘贴表格数据中一般常用的有如下这些函数。Worksheets(Array(“sheet1”,”sheet2”)).Select '同时选择工作表1和工作表2
Sheets(“sheet1”).Delete或 Sheets(1).Delete '删除工作表1
ActiveWorkbook.Sheets(i).Name '获取工作表i的名称
ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
'选择当前活动单元格所包含的范围，上下左右无空行
Cells.Select ‘选定当前工作表的所有单元格
Range(“A1:D4”).Clear'彻底清除A1至D4单元格区域的内容，包括格式
TextColor=Range(“A1”).Font.ColorIndex ‘检查单元格A1的文本颜色并返回颜色索引
Range(“A1”).Interior.ColorIndex ‘获取单元格A1背景色
拷贝整个工作表：
ExcelID.ActiveSheet.Used.Range.Copy;
拷贝指定区域：
ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
从A1位置开始粘贴：
ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
从文件尾部开始粘贴：
ExcelID.ActiveSheet.Range.PasteSpecial;
3. 进入编程界面后将代码写入代码编辑器里面，如下是我本地制作的复制本地的"标准数据.xlsx"这个文件中的A1-H500中的数据到当前表格的sheet1（标准数据）中。这里需要注意的是，在打开的EXCEL目录中要存在“标准数据.xlsx”文件，否则无法打开数据就无法复制。以下是代码分享：
Sub 打开标准数据表()
Dim mypath$, myname$, rng As Range, myr$ '定义变量
Application.ScreenUpdating = True '显示屏幕计算过程
Sheet1.Activate
[A1:H500].Clear '将表格中的原油数据清空
mypath = ThisWorkbook.path & "\" '设置模板数据的路径，这里以当前的EXCEL表格作为打开路径
myname = "标准数据.xlsx" '要打开复制的excel表格名称
With GetObject(mypath & myname) '获取要复制的表格对象 '
myr = .Sheets(1).[A1:H500].Row '选取当前表格中的sheet1的A1-H500
Set rng = .Sheets(1).Range("A1:H500")
rng.Copy '复制rng数据
Sheets("标准数据").Range("A1:H500").PasteSpecial '把复制的数据粘贴到当前表格中的“标准数据”的A1-H500
.Close True '关闭模板数据表格
End With
Application.ScreenUpdating = True '打开屏幕显示
End Sub
4. 代码编译运行后其效果如下，将对应的数据拷贝到了指定的表格中。
代码运行前
代码运行后以上就是今天为大家分享的Excel自带的VB复制表格数据到指定文件的内容，希望大家喜欢。如果觉得写得不错的话欢迎点赞关注，如果觉得有哪些地方写得有问题的话，欢迎留言讨论，祝大家生活愉快