Question

如何用VB语言复制excel表中的数据

如图 ，只要复制从A2到E14的数据。也就是第一行和最后一行的数据不需要复制。而且表格的行数不固定。如何用VB语言实现？

Answer 1

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "d:\test.xls" '要访问的工作簿路径和名称
SheetName = "sheet1" '指定的要访问的工作表名称
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
xlSheet.Range("A2:E14").Copy '复制过后做什么？
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

Answer 2

最简单的方法 用excel 录制宏 再看一下代码
vba 中直接用就可以 ，vb中引用excel就可以了 ，复制后面的操作你没说，所以就不作回答了