Access数据如何通过VBA转换为电子表格

zhang_43

1.先把Config文件中除了流量成果站点参数和实测大断面以外的表文件名在B1单元格中显示出来。
2.把Config文件中B1表名的数据导入到临时表中。

洋务德雷

工程密码是多少？

zhang_43

洋务德雷 发表于 2024-3-6 14:58
工程密码是多少？

密码是5822050，里边没有代码是空的

HLAI

你的要求是不是将MDB内表格名称为数字格式的表的内容读取出来？表格名称是文字格式（无论中英文）的就不读，是不是这样呢？

zhang_43

HLAI 发表于 2024-3-6 16:13
你的要求是不是将MDB内表格名称为数字格式的表的内容读取出来？表格名称是文字格式（无论中英文）的就不读 ...

除了我说的那几个文件名不用读别的在下拉菜单中出现可选

zhang_43

HLAI 发表于 2024-3-6 16:13
你的要求是不是将MDB内表格名称为数字格式的表的内容读取出来？表格名称是文字格式（无论中英文）的就不读 ...

类似这段代码，这段代码是把指定文件夹中的所有文件名显示在下拉菜单中，我现在要的是把ACCESS文件中的表名下拉显示出来，其中说的那几个表名不显示，要是那几个表名不显示做不到的话那就全部显示出来也行




Dim mypath$, MyName$, arr$(), m&


If Worksheets("内部参数").Cells(2, 7) = "" Then

    mypath = ThisWorkbook.Path & "\excel\"
    Else
    mypath = Worksheets("内部参数").Cells(2, 7) & "\excel\"
  End If
   
   
   
    MyName = Dir(mypath & "*.xls")
    Do While MyName <> ""
        m = m + 1
        ReDim Preserve arr(1 To m)
        arr(m) = MyName
        MyName = Dir
    Loop
    Sheets("参数").Activate
    [iv1].CurrentRegion.Clear
    [iv1].Resize(m) = Application.Transpose(arr)
    Range("B2:B6").Select
    With Range("B2:B6").Validation
        .Delete
        If m Then .Add 3, 1, 1, "=" & [iv1].CurrentRegion.Address
    End With

fzxba

Access转换.zip (152.02 KB, 下载次数: 10)

2024-3-6 17:28 上传

点击文件名下载附件

zhang_43

fzxba 发表于 2024-3-6 17:28

谢谢大神，可以使用了

HLAI

fzxba朋友的办法要加载某些控件，有的OFFICE也许没有会报错。另外文件打开存盘后，不知道是不是B1单元格的序列不能设置太长的原因，还是我的电脑的原因，再开一次就会报错。我换了个思路，直接用SQL语句来读取MDB内的表格名称，然后写入列表控件，选择列表后读取对应表格的数据。有点麻烦是SQL读取ACCESS表格列表名时，实际上是读取MDB文件内隐藏的表MSYSOBJECTS，必须先打开MDB文件并设置解除隐藏这个表，文件内我也有说明。读取表格是很简单的，但读取全部表格名倒是第一次接触，花时间查了好一阵子资料，也算是学习到了知识。

tanglf188

理解错误