Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12131 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12168】以前の続きです。 初心者 04/3/25(木) 16:55 質問
【12170】Re:以前の続きです。 IROC 04/3/25(木) 18:20 回答
【12171】Re:以前の続きです。 初心者 04/3/25(木) 18:24 発言
【12173】Re:以前の続きです。 IROC 04/3/25(木) 18:27 回答
【12174】Re:以前の続きです。 初心者 04/3/25(木) 18:33 発言
【12179】Re:以前の続きです。 IROC 04/3/25(木) 20:48 回答
【12188】Re:以前の続きです。 Asaki 04/3/26(金) 9:34 回答
【12207】Re:以前の続きです。 初心者 04/3/26(金) 16:28 お礼
【12168】以前の続きです。
質問  初心者  - 04/3/25(木) 16:55 -
引用なし
パスワード
   Dim Filename As String

Filename = Application.GetOpenFilename(Title:="集計用のファイルを指定して下さい")　　　'ファイルの選択
　　　　If Filename <> "False" Then
　　　　Call テキストに変換　 ←テキストファイルに変換します
　　　　Workbooks.OpenText Filename:=Filename, DataType:=xlDelimited, _
　　　　ConsecutiveDelimiter:=True, Comma:=True, FieldInfo:=Array(1, 2)
　　 Else: Call csvに変換　　　　　　　　　'キャンセルを選ぶと元に戻る
　　　 End
　　　　　 End If
以前投稿させて頂いたレスを参考にして書いたＶＢＡですがWorkbooks.OpenText Filename:=の状態で.txtにファイルを変えたのでエラーになってしまいました。
どうしたら開けるでしょうか？
【12170】Re:以前の続きです。
回答  IROC  - 04/3/25(木) 18:20 -
引用なし
パスワード
   >　　　　Call テキストに変換　 ←テキストファイルに変換します

で呼び出している

Sub テキストに変換()
　　：
Enbd Sub

では、どのような処理を行っているのですか？
【12171】Re:以前の続きです。
発言  初心者  - 04/3/25(木) 18:24 -
引用なし
パスワード
   Sub テキストに変換()
Dim DfDr As String, ComL As String
DfDr = CurDir()
ChDir ThisWorkbook.Path
ComL = "COMMAND.COM /C ren *.csv *.txt"
Call Shell(ComL, vbHide)
ChDir DfDr
DoEvents
End Sub
という処理を行ってます。
【12173】Re:以前の続きです。
回答  IROC  - 04/3/25(木) 18:27 -
引用なし
パスワード
   >Call Shell(ComL, vbHide)

これの先はどのような処理ですか？
【12174】Re:以前の続きです。
発言  初心者  - 04/3/25(木) 18:33 -
引用なし
パスワード
   ChDir DfDr
DoEvents
End Sub
という事ではなくてですか？
その先の処理という事ですか？
【12179】Re:以前の続きです。
回答  IROC  - 04/3/25(木) 20:48 -
引用なし
パスワード
   Sub Shell(a,b)
　:
End Sub

のような関数を Call していると思うのですが・・
【12188】Re:以前の続きです。
回答  Asaki  - 04/3/26(金) 9:34 -
引用なし
パスワード
   おはようございます。
後ろから失礼します。

>If Filename <> "False" Then
の後に、
Filename = Replace(UCase(Filename), ".CSV", ".txt")
を追加するとどうなりますか？

因みに、Shell関数自身は、問題なく動くようです。
【12207】Re:以前の続きです。
お礼  初心者  - 04/3/26(金) 16:28 -
引用なし
パスワード
   Asakiさん、IROCさん、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12131 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free