Visual Basicを使用してExcelでフォルダディレクトリを作成する

Question

Visual Basicで非常に新しいです

現在Excel内で電卓を作成しようとしていますが、Excel内でデータをPDFにエクスポートできます。私はexcel文書をエクスポートすることができましたが、それは私の "D：\"にしか行きません。

D：\内にフォルダを作成するにはどうすればExcel_Calculatorのように呼び出されますか？作成されたすべてのPDFをそのフォルダに直接保存することができます&上書きする代わりにそのフォルダを使用するには、既存のフォルダ

Sub GetFilenameForPDF() 
Dim strFileName As String, strB1 As String, strWorksheet As String 


strB1 = Range("B1").Value 
strWorksheet = ActiveSheet.Name 
strFileName = strB1 & " " & strWorksheet & " " & Format(Date, "DD-MM-YYYY") 




Sub SaveToPDF() 

Dim strFileName As String, strC3 As String, strWorksheet As String 
strB1 = Range("B1").Value 
strWorksheet = ActiveSheet.Name 
strFileName = strB1 & " " & strWorksheet & " " & Format(Date, "DD-MM-YYYY") 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "D:\" & strFileName & ".pdf", _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=True 
    End Sub 

** EDIT：

PDFを保存するための私が持っているコードは以下のとおりですまたはフォルダがないように、私は一時的な場所にファイルを作成したり、リダイレクトすることができる方法があります詰まっし、ユーザーは必要なときにPDFを保存/印刷することができますか？**

Answer 1

私はあなたのVBAプロジェクトでは、FileSystemObjectオブジェクト

を使用して好む、Toos->参照設定]をクリックし、「Microsoftスクリプトランタイム」を追加します。あなたは、単一のフォルダやサブフォルダのツリーを作成するには、以下の機能を使用することができます

Dim fso as FileSystemObject 
Dim folderName as String 

Set fso = new FileSystemObject 
folderName = "D:\MyFolder" 
If fso.FolderExists(folderName) = false then 
    fso.CreateFolder folderName 
End If 

Dim strFileName As String, strC3 As String, strWorksheet As String 
strB1 = Range("B1").Value 
strWorksheet = ActiveSheet.Name 
strFileName = folderName + "\" + strB1 & " " & strWorksheet & " " & Format(Date, "DD-MM-YYYY") 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"D:\" & strFileName & ".pdf", _ 
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
:=False, OpenAfterPublish:=True 

Answer 2

：

次に、あなたのコードでは、ような何かを行います。この関数は、（VBA.FileSystem）MkDir関数を使用します。

Sub T() 
    Dim path_ As String 
     path_ = CreateFolderTree("C:\My folder", "Subfolder 1", "Subfolder 2") 

    Debug.Print path_ 

    'C:\My folder\Subfolder 1\Subfolder 2\ 
End Sub 

Answer 3

私は通常これを使用します：パスは、すでに複数の層があっても、それはそれを作成し、存在しない場合は

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long 

Public Sub MakeFullDir(strPath As String) 
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\" 'Optional depending upon intent 
    MakeSureDirectoryPathExists strPath 
End Sub 

を、それを呼び出すために

Public Function CreateFolderTree(ByVal mainFolder As String, ParamArray args() As Variant) As String 
    On Error GoTo ErrProc 

    Dim path As String 
     path = mainFolder & IIf(Right(mainFolder, 1) <> "\", "\", vbNullString) 

    Dim idx As Long 
    For idx = LBound(args) To UBound(args) 
     If Len(Dir(path & args(idx), vbDirectory)) = 0 Then MkDir path & args(idx) 
     path = path & args(idx) & "\" 
    Next idx 

    CreateFolderTree = path 

Leave: 
    On Error GoTo 0 
    Exit Function 

ErrProc: 
    MsgBox Err.Description, vbCritical 
    Resume Leave 
End Function 

存在しないフォルダ。

例えば：C：\ aFolder \ bFolder \ cFolder \のみ aFolderこれはbFolderとcFolderを行います（存在する場合）。