vb6怎么引用excel？-office2013缺少VB,office缺少字体

我感觉这点事,不用写多个函数了一个过程.一次性写完好了.
vb6新建工程引用microsoft excel
Sub OpenExcelAndCopyData(path1 As String, path2 As String)
If Len(Dir(path)) = 0 Then
MsgBox "文件不存在!", vbCritical, "错误"
Exit Sub
End If

Dim excelapp As New Excel.Application
Dim wbk1 As Excel.Workbook
Dim wbk2 As Excel.Workbook
Dim sht1 As Excel.Worksheet
Dim sht2 As Excel.Worksheet
Set wbk1 = excelapp.Workbooks.Add(path1)
Set wbk2 = excelapp.Workbooks.Open(path2)

Set sht1 = wbk1.Worksheets(1)
Set sht2 = wbk2.Worksheets(1)

Dim r As Integer, r1 As Integer, r2 As Integer
Dim c As Integer, c1 As Integer, c2 As Integer

r1 = sht1.Range("A65536").End(xlUp).Row
r2 = sht2.Range("A65536").End(xlUp).Row

c1 = 1 '第一列到第五列e799bee5baa6e59b9ee7ad94364的数据
c2 = 5

For r = 2 To r1
r2 = r2 + 1
For c = c1 To c2
sht2.Cells(r2, c) = sht1.Cells(r1, c)
Next
Next
wbk2.Save
wbk1.Close
wbk2.Close
excelapp.Quit
excelapp = Nothing
End Sub

要出问题。你可能使用了该版本才有的对象，则低版本的库是识别不了的。反过来说百，要是不会出问题，微软直接提供最新的库就可以了，干嘛还提供老版本？

解决方案
1：在添加引用的时候，就低不就高。你需要的基本功能，低度版本也基本都有；如果实在需要引用高版本，应该在程序运行前，对客户环境进行版本检查。
2：如果是商用程序，需要做好测试工作，即你要用不用的Excel版本，验证你的设计。
3：反其道而行之，不要用VB调用Excel，而用Excel调用VB制作的DLL。用VB实现的各种功能（算法，界版面等），可以打包到权DLL中，然后用Excel的VBA调用它。这样DLL中就无需用到Excel的库，并且今后它还可以为其他程序使用。不过，要是制作商用程序，考虑客户安装时，难度要大些。
一、检查是否你已经手动打开了c:\1.xls文件？
Set xlBook = xlApp.Workbooks.open("c:\1.xls") 语句的意思是打开c:\1.xls文件，因此，
对于已经打开的c:\1.xls文件，不能执行 Set xlBook = xlApp.Workbooks.open("c:\1.xls") 语句。
二、在每次执行完xlApp对象，需要关闭它才可以再次用代码e69da5e6ba90e799bee5baa6e79fa5e98193339打开。
如果不关闭代码打开的对象，也会像上面说的那样，出现已经打开文件的错误提示。
在你的事例中，Set xlSheet = xlBook.Worksheets(1)xlSheet.Cells(1, 2) = "11111" 是最后一句
处理 excel 工作表的语句，因此应把关闭对象代码放到这句后面。即：
Private Sub Command2_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'Set xlApp = GetObject(, "Excel.Application")
Set xlBook = xlApp.Workbooks.open("c:\1.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(1, 2) = "11111"
xlBook.Save
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

楼主复,我的成功了.希望可以帮助你!

我加载制了下面两个dll文件就出现百了,但是都有提示错误,不管他,最终还是度得到想要的效果.

Microsoft Excel 15.0 Ojbect Library,Microsoft Wordl 15.0 Ojbect Library,Microsoft powerPoint 15.0 Ojbect Library都出现了.

希望可以知帮助你!如果成功道的话也请告诉我哦!