フォルダ内のtxtファイルをxlsxに保存する方法
【VBA】フォルダ内すべてのtxtファイルをxlsx形式で保存する方法
ご覧頂きありがとうございます。
(目標)
・指定フォルダのtxtファイルをxlsx形式で「指定フォルダ\」へ保存し、元のtxtファイルを削除したい
(説明)
PDFファイルをexcelファイルに変換するマクロを作成したいです。
Acrobatが導入されておりませんので、
「PDFをWordで読込→txtで保存→excelで開いて保存し直す」
という方法を検討しています。
txt変換までは下記マクロを使用しておりますが、xlsx形式で保存機能をどのように追加すればよいでしょうか？
------------------------
Sub ConvertPDFtoTextViaWord()
'参照設定>"Microsoft Word ○ Object Library"をチェック
Const filePath As String = "PDF保存先\" 'PDF保存先フォルダパス
Dim file As String, fileName As String
Dim myWord As Word.Application, myDoc As Word.Document
Set myWord = New Word.Application
file = Dir(filePath & "*.pdf")
myWord.DisplayAlerts = wdAlertsNone
Do While file <> ""
fileName = Replace(file, "pdf", "txt")
Set myDoc = myWord.Documents.Open(fileName:=filePath & file, ConfirmConversions:=False, Format:="PDF Files")
myDoc.SaveAs2 filePath & fileName, FileFormat:=wdFormatText, Encoding:=932, lineending:=wdCRLF 'Encoding:=932 日本語 (Shift-JIS)
myDoc.Close False
file = Dir
Loop
Set myDoc = Nothing
Set myWord = Nothing
End Sub
------------------------
知識不足で申し訳ありません。
ご教示頂ければ幸いです。
