选择文件夹后，选择工作表，导出为数值

dongwengui1984 · 发表于 2024-10-18 15:33

本帖最后由 dongwengui1984 于 2024-10-18 15:34 编辑

你好，我想选择一个文件夹，然后再窗体里选择工作表，然后导出来为数值

以前是WIN7 32位系统，EXCEL 13 一直都可以实现

现在是WIN11 64位系统，EXCEL 21 不能实现了

小凡、、、 · 发表于 2024-10-18 15:52

感觉是已经写好的模块丢失了，表里没有对应的sub过程来执行导出这个过程

dongwengui1984 · 发表于 2024-10-18 15:58

小凡、、、发表于 2024-10-18 15:52
感觉是已经写好的模块丢失了，表里没有对应的sub过程来执行导出这个过程

有那个模块的，麻烦你帮我看看

feilanga · 发表于 2024-10-18 16:15

模块不全，有些代码缺失

小凡、、、 · 发表于 2024-10-18 16:20

dongwengui1984 发表于 2024-10-18 15:58
有那个模块的，麻烦你帮我看看

你的类模块，api的声明不见了，要兼容64和32应该有很长的这样的api声明代码，你的代码有点多，估计只有编写的人才知道有哪些，反向找api基本没人干这事

dongwengui1984 · 发表于 2024-10-18 17:09

本帖最后由 dongwengui1984 于 2024-10-19 13:12 编辑

feilanga 发表于 2024-10-18 16:15
模块不全，有些代码缺失

老师，我把全部的代码放进来了，密码123，麻烦你帮我看看，那个导出功能为什么不能在WIN11 EXCEL2021版上实现呢，谢谢！

dongwengui1984 · 发表于 2024-10-18 17:09

本帖最后由 dongwengui1984 于 2024-10-19 13:12 编辑

小凡、、、发表于 2024-10-18 16:20
你的类模块，api的声明不见了，要兼容64和32应该有很长的这样的api声明代码，你的代码有点多，估计只有编 ...

老师，我把全部的代码放进来了，密码123，麻烦你帮我看看，那个导出功能为什么不能在WIN11 EXCEL2021版上实现呢，谢谢！

小凡、、、 · 发表于 2024-10-18 17:38

dongwengui1984 发表于 2024-10-18 17:09
老师，我把全部的代码放进来了，密码123，麻烦你帮我看看，那个导出功能为什么不能在WIN11 EXCEL2021版上 ...

你用着是闪退吗？

dongwengui1984 · 发表于 2024-10-19 09:40

小凡、、、发表于 2024-10-18 17:38
你用着是闪退吗？

麻烦你重新下载一下

dongwengui1984 · 发表于 2024-10-19 09:49

小凡、、、发表于 2024-10-18 17:38
你用着是闪退吗？

Sub BrowDir()
Dim bi As BROWSEINFO
Dim pidl&, rtn&, path$, pos%
pidl& = SHBrowseForFolder(bi)
path$ = Space$(512)
rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
If rtn& Then
      pos% = InStr(path$, Chr$(0))
      MyPath = Left(path$, pos - 1)
End If
If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1)
End Sub
这段代码的问题，就是选择文件夹的时候就自动重启EXCEL，现在用的是WIN11 64位  EXCEL2021版，以前用2013版，WIN7  32位没有问题

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

[求助] 选择文件夹后，选择工作表，导出为数值