恳请老鬼版主看看Excel连接表数据转移问题！

wang1950317

老鬼版主：您好！这是大熊版主帮忙过的帖子，在office2003版本上可以使用，在2000上不能使用。请您指点一下如何在2000上也可使用.谢谢！

[em06]

大熊

No.I will often  make mistakes too. But My teacher tell me that making Mistakes is the necessary step to study a foreign language.[em04]

foxxp

熊版见笑了.本想用英文和熊兄交流一下,没成想不仅错发了两次,语法还有多个错误.惭愧!

大熊

many tks. at least we know how to deal with it now.

foxxp

cause I found there were some sheets in OLE CALLING，see the code below

...

Debug.Print xlsApp.Workbooks.Count

...

the last one was the OLE OBJECT,other sheets were PERSONAL.XLS , XLA , XLL etc

but they were all unvisible 。

so i thought if this was the reason .

"All Were Unvisible " = "There Were No ActiveSheet" = "There Were No Current Sheet"

so we must gave the absolute reference of the sheet .

but i was puzzled why it was no error in the second try.

thanks.

foxxp

cause I found there were some sheets in OLE CALLING，see the code below

...

Debug.Print xlsApp.Workbooks.Count

...

the last one was the OLE OBJECT,others sheets were PERSONAL.XLS , XLA , XLL etc

but they were all unvisible 。

so i thought if this was the reason .

"All Were Unvisible " = "There Were No ActiveSheet" = "There Were No Current Sheet"

so we must gave the absolute reference of the sheet .

but i was puzzled why it was no error in the second try.

thanks.

大熊

Well done, Dear FOXAP, The main problem seems at the following sentence.You:Set xlsSheet = xlsApp.Workbooks(xlsApp.Workbooks.Count).Worksheets(1)文本44 = xlsSheet.Range("C4").TextMe文本44 = xlsApp.Range("C4").Text Can u give me the details of the difference? Mr.FoxXP?

wang1950317

foxxp老师:真棒!一切都非常好!谢谢您,谢谢楼上各位,从各位那里又学到不少东西!

foxxp

帮你把函数修改了一下,看行不行?

用这段脚本覆盖窗体的update按纽的click事件.由于每天的上传文件有限,就不给你发文件了.

Private Sub cmdUpdate_Click()

Dim xlsApp As Excel.Application

Dim xlsSheet As Excel.Worksheet

With Me.OLE未绑定20

    .Action = acOLEActivate

    .Verb = acOLEVerbOpen

End With

Set xlsApp = GetObject(, "Excel.Application")

Debug.Print xlsApp.Workbooks.Count

Set xlsSheet = xlsApp.Workbooks(xlsApp.Workbooks.Count).Worksheets(1)

xlsApp.Visible = True

On Error GoTo handle:

文本44 = xlsSheet.Range("C4").Text

文本47 = xlsSheet.Range("C5").Text

文本49 = xlsSheet.Range("C6").Text

文本51 = xlsSheet.Range("C7").Text

文本53 = xlsSheet.Range("C8").Text

文本55 = xlsSheet.Range("C9").Text

文本57 = xlsSheet.Range("C10").Text

xlsApp.Visible = False

xlsApp.Quit

Set xlsApp = Nothing

文本44.Value = 文本44

文本47.Value = 文本47

文本49.Value = 文本49

文本51.Value = 文本51

文本53.Value = 文本53

文本55.Value = 文本55

文本57.Value = 文本57

Exit Sub

handle:

   Call MsgBox("错误信息" & Err.Number & ":" & Err.Description, , "错误")

   Resume Next

End Sub

wang1950317

多谢楼上斑竹、专家的指教。office重装了一下，找到了Microsoft Excel 9.0 Object Library，数据可以转移了。谢谢各位。但是还是必须按两次Update钮才行，按第一次还是出现“运行时错误，‘1004’    ‘Range‘作用于对象‘-Application‘时失败”，不知是什么原因。