Excel VBA質問箱 IV

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

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


18811 / 76732 ←次へ | 前へ→

【63359】Re:指定したテキストファイルを開き読み込む
質問  なな  - 09/10/29(木) 11:47 -

引用なし
パスワード
   ▼Jaka さん:

下記のようにコードを記述してみましたが、どうしても、変数の値が "" となってしまい、取得できません。

書き方が間違っているのでしょうか?
何度もすみませんがよろしくお願いします

Sub test()

Dim LastR As Integer, MyRow As Integer
Dim Sh1 As Worksheet
Dim MyRange As Range
Dim strParts As String
Dim strDir As String, 変数 As String


Set Sh1 = Worksheets("シート1")

LastR = Sh1.Range("D65536").End(xlUp).Row

Set MyRange = Sh1.Range("A10:A" & LastR).Find(what:="R", lookin:=xlValues)
 If Not MyRange Is Nothing Then
  MyRow = MyRange.Row
  strParts = Sh1.Range("D" & MyRow).Value
  strDir = "C:\Temp\フォルダ\"

  変数 = Dir(strDir & "QQQ_" & strParts & "*AS.txt")
 
  ↑どうしても変数の値が""となってしまいます  


  If 変数 <> "" Then
     Open strDir & 変数 For Input as #1

  End If 
End If


End Sub

2 hits

【63350】指定したテキストファイルを開き読み込む なな 09/10/29(木) 9:59 質問
【63351】Re:指定したテキストファイルを開き読み込む なな 09/10/29(木) 10:01 質問
【63352】Re:指定したテキストファイルを開き読み込む Jaka 09/10/29(木) 10:23 発言
【63354】Re:指定したテキストファイルを開き読み込む なな 09/10/29(木) 11:01 質問
【63357】Re:指定したテキストファイルを開き読み込む Jaka 09/10/29(木) 11:27 発言
【63359】Re:指定したテキストファイルを開き読み込む なな 09/10/29(木) 11:47 質問
【63362】Re:指定したテキストファイルを開き読み込む Jaka 09/10/29(木) 11:59 発言
【63364】Re:指定したテキストファイルを開き読み込む Jaka 09/10/29(木) 13:39 発言
【63366】Re:指定したテキストファイルを開き読み込む なな 09/10/29(木) 14:06 お礼

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