1

フォルダー内のすべてのファイルを開いて xlsx ファイルとして保存するマクロを作成しようとしています。私が使用しているファイルにはファイル拡張子がありません。データはタブで区切られており、手動で正常に開きます。フォルダー内のすべてのファイルを開くこのコードがありますが、ファイル拡張子のないファイルを開くことはできませんでした。

Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String

sPath = "E:\Macro" 'location of files
ChDir sPath
sFil = Dir("*.xlsx") 'change or add formats
Do While sFil <> "" 
Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file

'Code to save as different file extension would go here

oWbk.Close True 'close the workbook, saving changes
sFil = Dir
Loop ' End of LOOP
End Sub

また、各ファイルを xlsx ファイルとして保存する方法もわかりません。

私はvbaにまったく慣れていないので、どんな助けでも大歓迎です。ありがとう

4

2 に答える 2

0

現在のコードは、既に .xlsx 拡張子を持つファイルのみを探しています。試してみてくださいDir('*')

ファイルの名前を変更するだけなら、私はそれらを開こうとはしません。私は使うだろうFileCopy

FileCopy source, destination

source と destination はどちらも文字列です。たとえば、次のように動作しました (Windows XP の場合)。

    FileCopy "testthis", "testthis.xlsx"

Killその後、古いファイルを削除するために使用できます

Kill pathname
于 2013-06-26T11:14:24.527 に答える