又是导入的问题

Question

关于导入问题,网络上面太多了,可惜我找了半天也没找到和我类似的问题,只好问大家了我想把vb中的数据导入excel,可是我的EXCEL是连接外界的excel文件的,一导入它就
会跳出来问我是不是要连接外界文件,这样就不会导入数据了,而连接的外界excel
文件还有密码,我应该怎幺导入啊,查看了open方法,没有啊,我想的解决方法;
1 是不是可以不打开excel文件直接导入数据,这样应该可以把,因为我需要导入的这个excel文件
是没有任何密码的,不知道可不可以
2 或者就直接用open方法做打开文件的时候在excel中编写一个宏再打开连接的另一个EXCEL文件
而再vb中编写代码调用这个宏,不知道可不可以大家帮忙啊,谢谢了

Answer 1

用ADO吧。
設置連接字符串，會讓你輸入的。

Answer 2

Dim EA As Excel.Workbook
    Set EA = GetObject("C:\1.xls")
    For i = 1 To 10
        EA.Worksheets(1).Range("A" & i + 1) = Int(Rnd * 100)
        EA.Worksheets(1).Range("B" & i + 1) = Int(Rnd * 100)
        EA.Worksheets(1).Range("C" & i + 1) = Int(Rnd * 100)
    Next

Answer 3

VBA区去搜吧，恁么多“导入”“导出”相关的贴子

Answer 4

Dim EA As New Excel.Application
    Dim EB As New Excel.Workbook
    Set EB = EA.Workbooks.Open("C:\2.xls")
    For i = 0 To 10
        EB.Worksheets(1).Range("A" & i + 1) = Int(Rnd() * 100)
        EB.Worksheets(1).Range("B" & i + 1) = Int(Rnd() * 100)
        EB.Worksheets(1).Range("C" & i + 1) = Int(Rnd() * 100)
    Next
    EB.Save
    EB.Close

Answer 5

好象前两行的定义就有错啊﹐文件都建立不了
Set EB = EA.Workbooks.Open("C:\2.xls")
停留在这行说﹕
object variable or with block variable not set好象是没有设定对象变量或 With 区块变量

Answer 6

在 Access 库上建一个连接 concon.execute "select into Excel表名 in """ & "c:\dest.xls" & """EXCEL 5.0;"" from Access表名"

Answer 7

Dim exlapp As New Excel.Application
Dim exlbook As Excel.Workbook
Dim exlsheet As Excel.Worksheet
Dim mydb As Database     '定义数据库
Dim rs As Recordset     '定义字段
Private Sub Command9_Click()
 Set exlapp = New Excel.Application
 exlapp.Workbooks.Open App.Path & "\book.xlt"
 Set mydb = Workspaces(0).OpenDatabase(App.Path & "\Ldjchmanage")     '打开数据库
 Set rs = mydb.OpenRecordset("tabdw", dbOpenTable)     '打开表
 Dim rows As Integer
 rows = 3
 If rs.RecordCount > 0 Then
  '将数据库信息添加到Excel表中
  While Not rs.EOF
   With exlapp.Sheets(1)
   .Cells(rows, 1) = rs.Fields(0)
   .Cells(rows, 2) = rs.Fields(1)
   .Cells(rows, 3) = rs.Fields(2)
   .Cells(rows, 4) = rs.Fields(3)
   .Cells(rows, 5) = rs.Fields(4)
   .Cells(rows, 6) = rs.Fields(5)
   .Cells(rows, 7) = rs.Fields(6)
   .Cells(rows, 8) = rs.Fields(7)
   .Cells(rows, 9) = rs.Fields(8)
   .Cells(rows, 10) = rs.Fields(9)
   .Cells(rows, 11) = rs.Fields(10)
   .Cells(rows, 12) = rs.Fields(11)
   .Cells(rows, 13) = rs.Fields(12)
   rs.MoveNext
   rows = rows + 1
   End With
  Wend
  exlapp.Visible = True
 Else
  MsgBox "没有数据！"
 End IfEnd Sub

Answer 8

记住本问题的原因主要是EXCEL文件有另外的连接文件,而连接的文件还有密码

Answer 9

把EXCEL表当数据库操作不就完了。