|
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
|
|