急いでいます！

マクロ初心者です、パスからファイル名を指定する際にファイル名に変数入れたいのですが変数認識してくれず

締切済

質問者：マクロ修行中
質問日時：2016/06/23 11:09
回答数：7件

マクロ初心者です、パスからファイル名を指定する際にファイル名に変数入れたいのですが変数認識してくれず困っています。

どなたか、どういう風にすれば変数認識するのかご教示お願いします。

'指定額の抽出
Private Const MESSAGE_START = "ファイルの読み込みを開始します" & vbCrLf & "フォルダを選択してください。"
Private Const MESSAGE_FINISH = "ファイルの読み込みが完了しました"
Sub テキスト出力()
'-------------------------------------------------------------------------------------------------------
'処理開始
'-------------------------------------------------------------------------------------------------------
MsgBox MESSAGE_START
'
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = 0 Then Exit Sub
Fol = .SelectedItems(1)
End With

Application.ScreenUpdating = False

Dim Fn
Dim Wb As Workbook

'開始行の指定（データ最終行の次の行
Dim n
n = Cells(Rows.Count, 1).End(xlUp).Row + 1

'セットするシートの指定
Dim w
Set w = Worksheets(1)

Dim a As Variant

'ファイル名（拡張子なし）を取得するためのFileSystemObjectオブジェクト - GetBaseNameメソッド
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Fn = Dir(Fol & "\*.xls*")

Do Until Fn = ""

Set Wb = Workbooks.Open(Fol & "\" & Fn)

Wb.Unprotect
ActiveSheet.Unprotect

w.Range("a" & n).Value = n - 5
w.Range("b" & n).Value = FSO.getbasename(Fn)
a = FSO.getbasename(Fn)

w.Range("c" & n).Value = Wb.Worksheets("R3取込シート").Range("h26").Value
w.Range("a" & n).Resize(1, 3).Borders.LineStyle = xlContinuous
n = n + 1

' Application.DisplayAlerts = False
Wb.Worksheets("R3取込シート").Copy

'↓ここのパスが今の時点でエラーなんです
ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\"a"&".txt"" _
, FileFormat:=xlText
ActiveWindow.Close
Wb.Save

' Application.DisplayAlerts = True

Wb.Close savechanges:=False

Fn = Dir
Loop

Range("A4").Select
MsgBox MESSAGE_FINISH

End Sub

マクロ初心者です、パスからファイル名を指定する際にファイル名に変数入れたいのですが変数認識してくれず

#4の回答者です。

No.3 のお礼にいきなり「' ActiveWorkbook.SaveAs Filename:="D:\Library\Desktop\新しいフォルダー\" & Range("f4") & ".txt", FileFormat:=xlText」が入ってますが、「'」でコメントアウトされているので無視していいということでしょうか？

> これで実行すると

こんにちは。

「'↓ここのパスが今の時点でエラーなんです」

「D:\Library\Desktop\新しいフォルダー」は、存在しますか？

よく見てませんけど

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング