Excel VBA質問箱 IV

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

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


14087 / 76733 ←次へ | 前へ→

【68146】Re:フォルダ内にあるTXTファイル名の取得
発言  kanabun  - 11/2/6(日) 20:12 -

引用なし
パスワード
   ↑直前の発言ですけど、
InStr のほうが楽そうですね

 Dim ss As String
 としておいて

こんな感じでどうでしょう

   ss = vbTab & Replace(StrConv(buf, vbUnicode), vbCrLf,vbTab)
   i = i + 1
   With Worksheets("Sheet1")
     .Cells(i, 1) = strFNM
     If InStr(ss, _
      vbTab & Left$(strFNM, Len(strFNM) - 4) & vbTab) Then
       .Cells(i, 2) = "あり"
     Else
       .Cells(i, 2) = "なし"
     End If
    :
    :

3 hits

【68141】フォルダ内にあるTXTファイル名の取得 ISO 11/2/5(土) 16:58 質問
【68142】Re:フォルダ内にあるTXTファイル名の取得 Yuki 11/2/5(土) 17:50 発言
【68144】Re:フォルダ内にあるTXTファイル名の取得 ISO 11/2/6(日) 18:19 質問
【68145】Re:フォルダ内にあるTXTファイル名の取得 kanabun 11/2/6(日) 19:04 発言
【68146】Re:フォルダ内にあるTXTファイル名の取得 kanabun 11/2/6(日) 20:12 発言
【68147】Re:フォルダ内にあるTXTファイル名の取得 ISO 11/2/6(日) 22:28 質問
【68148】Re:フォルダ内にあるTXTファイル名の取得 kanabun 11/2/6(日) 22:51 発言
【68150】Re:フォルダ内にあるTXTファイル名の取得 ISO 11/2/7(月) 6:37 質問
【68151】Re:フォルダ内にあるTXTファイル名の取得 kanabun 11/2/7(月) 9:56 発言
【68154】Re:フォルダ内にあるTXTファイル名の取得 ISO 11/2/7(月) 12:44 お礼

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