P-01D ご指摘の解決方法

質問者が納得デスクトップに「hoge」フォルダを作成します。 既に「hoge」フォルダが存在する場合は、そのままです。 フォルダ内に追加していきます。 フォルダ内に同名ファイルが既に存在した場合は 確認無しの強制上書きされます。 Sub sample() Dim objFSO As Object Dim myFolder As String Dim myFileNM As String Dim myFileNo As Integer Dim myCol As Integer Set objFSO ...