Excel VBA質問箱 IV

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

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


58598 / 76732 ←次へ | 前へ→

【22859】Re:テキストファイルを開く
回答  G-Luck  - 05/3/5(土) 10:34 -

引用なし
パスワード
   ▼VBA初心者 さん:
かみちゃん こんにちは
SendKey 知りませんでした。すばらしい

さて、VBA初心者 さん
SendKeyはアクティブなウィンドウに返すようです(Helpより)。
つまり、myFileOpenを呼び出した時、たいしょうのExcelがアクティブでないと、うまく動作しません。VBEからの時、うまく動作しませんでした。
そこで、Offce XP 以降なら、下記のような方法もあります。

'以下コード
Sub myFileOpen()
  Dim Fn As String
  Dim ret As Long
  
  With Application.FileDialog(msoFileDialogFilePicker)
    With .Filters
      .Clear
      .Add "特殊テキストファイル(*.xms)", "*.xms"
    End With
    .FilterIndex = 1
    .InitialFileName = "ABC*"
    ret = .Show
    If ret = 0 Then Exit Sub
    Fn = .SelectedItems(1)
    
    '以下かみちゃんより
    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 With
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 お礼

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