名前から範囲のSaveAsCopy

Question

私は特定のフォルダに使用しているExcelブックのコピーを保存するコードを使用したいと思います。

これは私が持っているものですが、私は保存されたコピーを取得していないようです。

私が持っている価値"G4"の名前は、コピーを印刷したい名前です。

問題が発生する可能性のある人はいますか？

私はまだこのVBA stuff =を学ぶことに問題があります。新しいプログラマーにとっては難しいです。

Sub SparatillFolder() 
Dim strFilename, strPathname, strDefpath As String 
On Error Resume Next ' If directory exist goto next line 


strFilename = sheets("Graf").Range("G4").Value 'New file name 
strDefpath = "\\C:"MYFOLDER" \dxakmh\Desktop\TestMiljö\Prognosverktyg\Sektionsfil\Gruppfiler\NyStruktur" 'Default path name 
If IsEmpty(strFilename) Then Exit Sub 

MkDir strDefpath 
strPathname = strFilename 'filename 

ActiveWorkbook.SaveCopyAs Filename:=strFilename & ".xlsm" 
End Sub 

あらかじめありがとうございます。

Answer 1

strDefpathはstrDefpath = "C:\dxakmh\Desktop\TestMiljö\Prognosverktyg\Sektionsfil\Gruppfiler\NyStruktur"

も.Text例Sheets("Graf").Range("G4").Text

Option Explicit 
Sub SparatillFolder() 
    Dim strFilename As String 
    Dim strDefpath As String 

    'New file name 
    strFilename = ThisWorkbook.Sheets("Graf").Range("G4").Text 
    strDefpath = "C:\dxakmh\Desktop\TestMiljö\Prognosverktyg\Sektionsfil\Gruppfiler\NyStruktur" 

    If IsEmpty(strFilename) Then Exit Sub 

    If Len(Dir(strDefpath, vbDirectory)) = 0 Then MkDir strDefpath 

    ActiveWorkbook.SaveCopyAs Filename:=strDefpath & "\" & strFilename & ".xlsm" 
End Sub 

Range.Text Property (Excel) 返すか、指定したオブジェクトのテキストを設定を使用しなければなりません。読み取り専用文字列。