需要有关初始目录的帮助
嘿，伙计们，我有一个运行良好的程序，除了我只希望初始目录是Autosave。我知道这可能很容易，但我似乎不知道如何将其更改为在这里工作。有人能帮我吗？
Public Function GetFileOpen(Title As String, InitFolder As String, Filter As String) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
With OpenFile
.hwndOwner = ThisDrawing.hWnd
.lStructSize = Len(OpenFile)
.lpstrFilter = Filter
.nFilterIndex = 1
.lpstrFile = String(257, 0)
.nMaxFile = Len(OpenFile.lpstrFile) - 1
.lpstrInitialDir = InitFolder
.lpstrFileTitle = OpenFile.lpstrFile
.nMaxFileTitle = OpenFile.nMaxFile
.lpstrTitle = "Select File"
.flags = 4
.lpTemplateName = "Test"
End With
'
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
GetFileOpen = ""
Else
GetFileOpen = Left$(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile, Chr$(0)) - 1)
End If
End Function
**** Hidden Message ***** 我不太明白你在问什么。
您发布的代码，是否为您提供了开放 dwg 或任何 dwg 的名称？ 不知道....但是:
.lpstrInitialDir = InitFolder
收件人:
.lpstrInitialDir = ThisDrawing.GetVariable("SAVEFILEPATH")
并将参数“InitFolder”作为字符串从函数中移除。？？
等待vb/a大师 路易斯，那应该有用。。。 基本上，该例程允许您打开bak文件，然后将其保存为dwg文件。由于我主要使用它来恢复自动保存，因此我希望从那里开始。我会试一试，然后告诉你。谢谢大家 嘿，
我让例程正常工作，但是当我尝试自动加载它时，就像我在加载所有其他vba例程时一样，它会在加载时给我这个错误。
错误：坏字符读取（八进制）：21
如果我运行它，它会说找不到宏
，但如果我手动加载它，它运行正常
这个错误是什么意思？ 在Google上快速搜索表明，可能会有一些愚蠢的字符（可能是换行符或返回或类似的东西）使程序中的工作变得混乱。
如果单击“调试”（DEBUG--> COMPILE），会发生什么情况？ 它发现什么不寻常的东西吗？ 加载宏的方法是什么？
页:
[1]