Excel VBA質問箱 IV

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

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


58643 / 76732 ←次へ | 前へ→

【22813】Re:テキストファイルを開く
発言  かみちゃん  - 05/3/4(金) 7:27 -

引用なし
パスワード
   G-Luck さん、VBA初心者さん、こんにちは。かみちゃん です。

>こんな感じのことでしょうか?

たぶんそういうことだと思います。
ただし、GetOpenFilenameのFileFilterで*.xmsではなく、ABC*.xmsとしたいのだと
思います。
あと、テキストファイルということですので、OpenTextメソッドを使うのでは?と
思っていました。
いずれにせよ、GetOpenFilenameメソッドを使う際に、特定のファイル名で始まる
ものだけ表示したいのと、テキストファイルを開く際にテキストファイルウィザー
ドを表示させたくないということだと思いますので、次のようにすればいいのかな
と思っています。

Sub myFileOpen()

  Dim Fn As String
    
  'IMEモードが「全角入力ひらがなモード」の場合「オフ」にする
  '必要に応じて織り込む
'  If IMEStatus = vbIMEModeHiragana Then
'   SendKeys "{kanji}", False
'   SendKeys "ABC*" & "{TAB}", False
'  Else
   SendKeys "ABC*" & "{TAB}", False
'  End If
  '----
  Fn = Application.GetOpenFilename _
    (FileFilter:="特殊テキストファイル(*.xms),*.xms")
  If Fn = "False" Then Exit Sub
  '↓ マクロの記録より 適宜変更すること
  Workbooks.OpenText Filename:=Fn _
    , Origin:=932, StartRow:= _
    1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
    Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 2)), _
    TrailingMinusNumbers:=True
End Sub
0 hits

【22808】テキストファイルを開く VBA初心者 05/3/3(木) 23:09 質問
【22809】Re:テキストファイルを開く かみちゃん 05/3/3(木) 23:22 発言
【22812】Re:テキストファイルを開く G-Luck 05/3/3(木) 23:39 回答
【22813】Re:テキストファイルを開く かみちゃん 05/3/4(金) 7:27 発言
【22854】Re:テキストファイルを開く VBA初心者 05/3/5(土) 1:42 質問
【22859】Re:テキストファイルを開く G-Luck 05/3/5(土) 10:34 回答
【22874】Re:テキストファイルを開く VBA初心者 05/3/5(土) 13:54 お礼

58643 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free