Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69477 / 76732

←次へ　｜　前へ→


	【11773】Re:CSVをTXTに変える

こうちゃん

- 04/3/16(火) 11:02 -


	引用なし

	パスワード

バルタンさん、谷さん、こんにちは

>ファイルを開く度にこの処理をしたいので出来ればＶＢＡの方がいいのですが・・・・
>すいません教えて下さい。

ファイルシステムオブジェクトを使ったサンプルです。
標準モジュールにコピペして、実行してみてください。

Sub test()
　　Dim fs As Object
　　Dim fld As Object
　　Dim fl As Object
　　
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set fld = fs.GetFolder(ActiveWorkbook.Path)
　　
　　For Each fl In fld.Files
　　　　If fs.GetExtensionName(fl.Name) = "csv" Then
　　　　　　If fs.FileExists(Replace(fl.Path, ".csv", ".txt")) Then
　　　　　　　　MsgBox fl.Path & "のファイル名を変更しようとしましたが、" & _
　　　　　　　　Replace(fl.Path, ".csv", ".txt") & "が存在します。"
　　　　　　Else
　　　　　　　　fl.Name = Replace(fl.Name, "csv", "txt")
　　　　　　End If
　　　　End If
　　Next
　　
　　Set fld = Nothing
　　Set fs = Nothing

End Sub

2 hits

▼

【11749】CSVをTXTに変える バルタン 04/3/15(月) 19:21