读取/设置→文件/目录(创建、修改、访问时间/只读、隐藏、系统属性)

tonychris · 发表于 2011-10-28 22:15

用Declare 声明的函数，都不需要注册的

cyano · 发表于 2011-10-28 22:57

tonychris 发表于 2011-10-28 22:12
vb不用些插件的话，是无法制作可导出函数的dll的

我没说不用插件而靠VB本身呀，就算在生成Dll过程中用了插件，但是该Dll还是VB生成的嘛。
我自己本身就用VB做了许多许多的可导出函数的Dll

cyano · 发表于 2011-10-28 22:59

tonychris 发表于 2011-10-28 22:14
你这句话说明了，你不了解activex dll 和可导出函数的dll的区别

你了解？
你试试用一个不必注册的标准Dll（在系统中没有注册的）放在xls所在文件夹内，声明不写绝对路径看能不能用

cyano · 发表于 2011-10-28 23:02

tonychris 发表于 2011-10-28 22:15
用Declare 声明的函数，都不需要注册的

真的吗？看在什么情况下
该“标准Dll”在系统目录和程序目录下可以这样说的
但在xls文件所在目录就不知道了

tonychris · 发表于 2011-10-28 23:24

cyano 发表于 2011-10-28 23:02
真的吗？看在什么情况下
该“标准Dll”在系统目录和程序目录下可以这样说的
但在xls文件所在目录就不知 ...

是吗，这我还真不知道。
我之前用vb写的exe掉标准dll，是可以放在同一个文件夹下的，难道和xls文件在一起就不好用了？

cyano · 发表于 2011-10-28 23:28

tonychris 发表于 2011-10-28 23:24
是吗，这我还真不知道。
我之前用vb写的exe掉标准dll，是可以放在同一个文件夹下的，难道和xls文件在一起 ...

你试试就知，祝你好运！
但是如果你这样好运的那有许多人就不好运了。

tonychris · 发表于 2011-10-28 23:28

试了一下，还真不好用啊。。。。。。。。。。。。。。。。

excel333 · 发表于 2011-10-29 14:09

cyano 发表于 2011-10-28 22:09
你有没看见楼主的API声明，这种声明方式在VB搞不清楚该DLL有没注册
但在VBA中使用这样的声明方式，我猜想该 ...

是拷贝到system32目录中：

Private Sub Workbook_Open()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
If Dir(FSO.BuildPath(ThisWorkbook.Path, "LLKJ.DLL")) <> "" Then FSO.GetFile(FSO.BuildPath(ThisWorkbook.Path, "LLKJ.DLL")).Copy (FSO.BuildPath(FSO.GetSpecialFolder(1), "LLKJ.DLL"))
Set FSO = Nothing
End Sub

joyark · 发表于 2011-11-21 02:14

謝謝提供學習.............下載看看

中条山的石头 · 发表于 2012-5-10 16:44

不错啊，很有用啊！

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

[原创] 读取/设置→文件/目录(创建、修改、访问时间/只读、隐藏、系统属性)