用ADO不打开源文件，读取其资料，已成功，请教其中两个小问题

lanny.mo

其实就是二个问题
问题一
[" & (k) & "$A5:w5] 此行号和列号变量，怎么写

cells(i,j).resize(r,100).address(0,0)表示已经OK，谢谢

问题二，

如果读取的内容“列”过大，就会报错

我看了规律是，存放的不能超出“Z”列，到AA列就会报错了

RST.Open "select * from [" & (3) & "$" & Cells(5, 1).Resize(1, 24).Address(0, 0) & "]",

反上面红色的“24”改为25或以上，马上报错

如附件所示

[ 本帖最后由 lanny.mo 于 2011-1-7 23:52 编辑 ]

lanny.mo

报错的地方是，数据存放的那些代码里[data$" & Chr(97 + j) & (i + 1) & ":" & Chr(97 + j) & (i + 1) & "]，如果我把代码改为[data$" & Cells(5, 1).Resize(1, 24).Address(0, 0) & "]的话，向右延伸都是1,无论怎么改C的值

[ 本帖最后由 lanny.mo 于 2011-1-8 00:10 编辑 ]

lanny.mo

ASCII最多只到Z，如果超过Z的栏请改用Cells(Row,Column)

但我改成Cells(Row,Column)后，列的数据只能读取一列为什么呢，那里错了

zhaogang1960

改为[data$" & Cells(5, 1).Resize(1, 24).Address时，5应该用变量，后面的set就不一样了，应该是：
strt = "update [Sheet1$" & Cells(i + 1, 5).Resize(1, 24).Address(0, 0) & "] set f1=' " & arr(i,1) & "' f2='" arr(i,2) "'" & ……

lanny.mo

完美解决，非常感谢！

LMY123

做个记号，明天复习

gtwlren

Public Sub ado方法导入EXCEL文件()

Dim lcConnectSring, szSQL, lcCommandText As String
Dim loADODBConnection As Variant
Dim loADODBRecordset As Variant


Dim fileToOpen
  fileToOpen = Application.GetOpenFilename("打开所有文件,*.*")
  If fileToOpen <> False Then
          MsgBox "即将导入文件：" & fileToOpen & " 的内容！"
  End If
  
'  Dim fileToOpen As String
'  Dim fdg As FileDialog
'  Dim filename$
'  Set fdg = Application.FileDialog(msoFileDialogOpen)
'  With fdg
'    .Filters.Clear
'    .Filters.Add "EXCEL文件", "*.XLS"
'    filename = .Show
'    fileToOpen = fdg.SelectedItems(1)
'  End With

lcConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
                     "DBQ=" + fileToOpen + ";" & _
                     "ReadOnly=true"
                  
lcCommandText = "select * from [1$]"
Set loADODBConnection = CreateObject("ADODB.Connection")
Set loADODBRecordset = CreateObject("ADODB.Recordset")

'打开变量，将loADODBConnection的内容装入loADODBRecordset

loADODBConnection.Open lcConnectionString
loADODBRecordset.Open lcCommandText, loADODBConnection, 3, 1, 1
Sheets("Sheet1").Activate


Dim r, f As Integer
r = 1
For f = 0 To loADODBRecordset.Fields.Count - 1
Sheets("Sheet1").Cells(r, f + 1).Value = loADODBRecordset.Fields(f).Name
Next
While Not loADODBRecordset.EOF
r = r + 1
For f = 0 To loADODBRecordset.Fields.Count - 1
Sheets("Sheet1").Cells(r, f + 1).Value = loADODBRecordset.Fields(f).Value
Next
loADODBRecordset.MoveNext
Wend

        
         
loADODBConnection.Close
Cells.Rows.AutoFit
Cells.Columns.AutoFit

With ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    ActiveWindow.FreezePanes = True

End Sub

gtwlren

fileToOpen文件最好用变量，实用。

同心/ty

gtwlren 发表于 2015-3-8 22:31
fileToOpen文件最好用变量，实用。

老师能否移步https://club.excelhome.net/threa ... tml?_dsign=577675d0，解决25楼问题。谢谢！