A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>が存在する間はループを掛ける
といっているが、普通わかりにくいのは(勉強課題は)(1)でしょう。
下記のように筋道を立てて、考えること。
そしてどの部分がわからないのか、質問に明記のこと。
でないと課題を丸投げしていることになる。
(1)指定した1つの中のファイルを捕まえる事。
(2)そして書いてないが
エクセルファイルでしょう、その中からエクセルファイルを選別し
(3)ファイルの名前を捉えて、
(4)A1があるかどうかの判別をし、
(5)A1があれば何かの処理をし
(6)ファイルが数えつくされれば、終わる
ーー
(1)は、Dir関数やVBScriptを使ウことになるでしょう。後者は
「フォルダ内のファイルを取得したい」という課題で、WEBや解説書に
あります。
WEBでは「フォルダ ファイル名 取得」で照会する。
Dirの例
http://www.accessclub.jp/samplefile/samplefile_2 …
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
Filesearch
http://www.nurs.or.jp/~ppoy/access/excel/xlM025. …
VBScript
http://itpro.nikkeibp.co.jp/article/COLUMN/20060 …
あと
.NETのも載ってます。
No.1
- 回答日時:
どういうコードを使い、どううまくいかないのかを補足してください。
この回答への補足
初心者ですので、コードの使用の仕方など
間違っておりましたらご指摘ください。
以下のように記述しています。
"B1" には ファイルパスを入力しています。
"A1" には " *150*.* " と入力しています。
これで、150が含まれる文字列のファイルの存在を
確認し、ループになっているのか。。。。
============================================
Private Sub CommandButton2_Click()
Dim myName As String
myName = (Range("B1").value & Range("A1").value)
Do While mydir > 0
mydir = Len(Dir(myName, vbDirectory))
If mydir > 0 Then
If (GetAttr(myFileName) And vbDirectory) = vbDirectory Then
Else
Else
exit do
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Java Java 南京錠 2 2023/02/04 11:46
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- Visual Basic(VBA) vbaサブフォルダーをワイルドカードで取得したい 2 2022/11/15 08:04
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでのファイル名と更新日(作...
-
VB6でUTF-8ファイルの読取りを
-
EXCEL VBA tif画像のプロパティ...
-
タイムスタンプの更新の方法2
-
VBAでフォルダ内のhtmlファイル...
-
excel マクロ PDF化の際のエラ...
-
Wordのプロパティ・総ページ数...
-
フォルダ階層・ファイル名・ペ...
-
動かなくなってしまった古いVBA...
-
コンソールアプリの起動パラメ...
-
FileDialog オブジェクトでファ...
-
サブフォルダ含むフォルダ内の...
-
[EXCEL-VBA]UsrFormよりD&Dファ...
-
「AccessViolationException」...
-
AccessからOLEオブジェクト型の...
-
VBAでCSVファイルを読み込もう...
-
VBA、ファイル名検索から開く、...
-
コモンダイアログで拡張子の無...
-
ファイルを開く時間測定のスク...
-
フォルダー内の最新更新エクセ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FileDialog オブジェクトでファ...
-
動かなくなってしまった古いVBA...
-
vbaサブフォルダーをワイルドカ...
-
ffftpでファイル取得が0バイト...
-
サブフォルダ含むフォルダ内の...
-
VBAでフォルダ内のhtmlファイル...
-
excel マクロ PDF化の際のエラ...
-
Wordのプロパティ・総ページ数...
-
Accessのウインドウサイズの固定
-
VB6でUTF-8ファイルの読取りを
-
フォルダ階層・ファイル名・ペ...
-
「エクセルファイルが開いてい...
-
ExcelVBA 文字コード変換
-
エクセルのVBAで開いている...
-
「AccessViolationException」...
-
ファイルを開く時間測定のスク...
-
AccessからOLEオブジェクト型の...
-
vbsでのアスタリスクとファイル...
-
VBからExcelファイルを開くとき...
-
【ACCESS VBA】アクセスからデ...
おすすめ情報