access vba 导入excel数据错误

掌中烛火

我想用access 导入excel数据，由于数据比较乱，需要用数组简单处理一下，每次导入文件的时候如果工作簿名称用固定值就没啥问题，如果用变量就会出现问题，这个该怎么解决


例如图片的那一行 如果写成
arr1 = 工作簿.Sheets(brr(0)).Range("A1").CurrentRegion  就会出错，
arr1 = 工作簿.Sheets("sheet1").Range("A1").CurrentRegion 就没问题，
我这边每次导入的sheet名不是固定值没办法固定。


附件已上传，我想实现的是下图的功能。

掌中烛火

有人吗，还是说access VBA不支持sheets 里面加变量

sj15627581616

不懂就问，access数据库 为什么不在EXCEL中直接用ado+sql取内容

掌中烛火

sj15627581616 发表于 2024-2-22 21:44
不懂就问，access数据库 为什么不在EXCEL中直接用ado+sql取内容

因为有些表格会出现不规范的内容，可以用数组判断屏蔽掉。

掌中烛火

sj15627581616 发表于 2024-2-22 21:44
不懂就问，access数据库 为什么不在EXCEL中直接用ado+sql取内容

并且有些单元格需要进行+-*/计算之后才能导入，我不想导入原始表再在access里面追加进去

excel玉米

s=s & "、" & 工作表.name这一句，一开始的s值是空值，如果用brr=split(s,"、")来分割，brr(0)也是空值。只有brr(1)到brr(ubound(brr))这中间有值。你下面用brr(0)明显就会出错。

掌中烛火

sj15627581616 发表于 2024-2-22 21:44
不懂就问，access数据库 为什么不在EXCEL中直接用ado+sql取内容

Option Compare Database

Sub test()
    t = Timer
    Set SelectFiles = Application.FileDialog(3)
    With SelectFiles
            .AllowMultiSelect = True       '可多选
            .Title = "请选择要导入的Excel表（可多选）"
            .Filters.Clear        '清除文件过滤器
            If .Show = 0 Then
        Exit Sub
             End If

        FullPath = .SelectedItems(i)
        FileName = Mid(FullPath, InStrRev(FullPath, "\") + 1, InStr(FullPath, ".") - InStrRev(FullPath, "\") - 1)
            Set xlApp = CreateObject("Excel.Application")
            Set xlBook = xlApp.Workbooks.Open(FullPath)
            For Each xlwk In xlBook.Worksheets
            s = s & "、" & xlwk.Name
            Next
            arr = Split(Mid(s, 2), "、")
            s = ""
            Set con = CreateObject("adodb.connection") '创建ado对象
            Set rs = CreateObject("ADODB.recordset") '创建记录集
            Set rst = CreateObject("ADODB.recordset") '创建记录集
            con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source= " & FullPath & " ;Extended Properties='Excel 12.0;HDR=Yes'"
            rs.Open "select * from [" & arr(0) & "$]", con, 1, 3
            Erase arr
            rst.Open "汇总", CurrentProject.Connection, , adLockOptimistic
            Do While Not rs.EOF

                                rst.AddNew
                rst.Fields(0) = rs.Fields(0).Value
                rst.Fields(1) = rs.Fields(3).Value
                rst.Fields(16) = rs.Fields(21).Value
                rst.Fields(17) = rs.Fields(22).Value
                rst.Fields(18) = rs.Fields(23).Value * 1024
                rst.Fields(19) = rs.Fields(24).Value * 1024
                rst.Update
                rs.MoveNext
            Loop
            xlBook.Close
            Set xlBook = Nothing
            Set xlApp = Nothing
            rs.Close
            Set rs = Nothing
            rst.Close
            Set rst = Nothing
    End With
    Set SelectFiles = Nothing
   
    MsgBox Timer - t
End Sub

用你的方法，记录集导入，虽然不报错了，但是速度会很慢。

掌中烛火

excel玉米 发表于 2024-2-22 22:26
s=s & "、" & 工作表.name这一句，一开始的s值是空值，如果用brr=split(s,"、")来分割，brr(0)也是空值。只 ...

如果弹窗选文件的话，这里的S就不是空值，工作表的sheet会形成一个数组，我只需要sheet1的数据。但是写成sheet1 也会出错

掌中烛火

有人能帮一下吗

excel玉米