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

zhang_43 · 发表于 2024-3-6 11:33

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

洋务德雷 · 发表于 2024-3-6 14:58

工程密码是多少？

zhang_43 · 发表于 2024-3-6 15:31

本帖最后由 zhang_43 于 2024-3-6 15:32 编辑

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

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

HLAI · 发表于 2024-3-6 16:13

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

zhang_43 · 发表于 2024-3-6 16:34

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

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

zhang_43 · 发表于 2024-3-6 16: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 · 发表于 2024-3-6 17:28

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

zhang_43 · 发表于 2024-3-7 08:25

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

谢谢大神，可以使用了

HLAI · 发表于 2024-3-7 11:10

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

tanglf188 · 发表于 2024-3-7 11:38

本帖最后由 tanglf188 于 2024-3-7 11:43 编辑

理解错误

		自动登录	找回密码
密码			免费注册

[求助] Access数据如何通过VBA转换为电子表格

评分

评分