Question

要求在mydocuments中存储文件。保存位置必须是VDI或笔记本电脑独立。

我能够在我想要的位置成功保存文件。但是使用相同的文件名和位置，我无法打开它。

当我通过VDI测试时，workbooks.open的路径和文件名就是这样的。有点奇怪，我无法使用我用来保存它的路径打开工作簿。

“\ xxx.yyy.CO.NZ \ PaleeS.home $ \ InsuranceAdvisory \ Excel \ DT_test delete_rectangle 1_04.May.17.xlsm”

Dim strFilename As String
Dim Client1 As Range
Dim Client2 As Range
Dim CurrentDate As String
Dim FilePrefix As String
Dim strDir As String
Dim StrDirSub As String
Dim Savedflie As String
Dim CurrentFolderpath As String
Dim CurrentFilename As String

CurrentFolderpath = Application.ActiveWorkbook.Path
CurrentFilename = Application.ActiveWorkbook.Path & "\" & Application.ActiveWorkbook.FullName

strDir = CreateObject("WScript.Shell").SpecialFolders("mydocuments") & Application.PathSeparator & "\InsuranceAdvisory"
StrDirSub = strDir & "\Excel"
If Dir(strDir, vbDirectory) = "" Then
    MkDir strDir
End If
Select Case Dir(StrDirSub, vbDirectory)
    Case ""
    MkDir StrDirSub
End Select
FilePrefix = "\DT_"
Set Client1 = Range("Client1")
Set Client2 = Range("Client2")
CurrentDate = Format(Date, "dd.mmm.yy")
strFilename = FilePrefix & Client1.Value & "_" & Client2.Value & "_" & CurrentDate
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs StrDirSub & strFilename & ".xlsm"
Savedflie = StrDirSub & strFilename & ".xlsm"
Application.Workbooks.Open (Savedflie)

从已保存位置打开工作簿

0 个答案: