Q&A
退会済みユーザー
2021/02/07 04:53 編集
間違った
Private Sub CommandButton4_Click()
Const WF3 As String = "C:\Users\aaa\Desktop\test\" '図面データ Dim strPDFName As String If UserForm1.TextBox1.Value = "" Then MsgBox ("製番が入力されていません") Else '拡張子が「.pdf」のファイルを、Dir関数で取得 folder_name = "*" & TextBox1 & "*" strFolderdir = Dir(WF3 & folder_name, vbDirectory) strFolderPath = WF3 & strFolderdir strPDFName = Dir(strFolderPath & "\" & "*.pdf") If Dir(WF3 & folder_name, vbDirectory) <> "" Then '拡張子が「.pdf」のファイルがある限り、処理をループ Do While strPDFName <> "" 'PDFファイルを開く CreateObject("Shell.Application").ShellExecute strFolderPath & "\" & strPDFName '次のPDFファイル名を取得 strPDFName = Dir() Loop Else MsgBox "該当図面は存在しません" End If End If
End Sub
間違った
まず自身が思ったように組んでみてください。
「コードください」は質問ではないです。作業依頼です。
> textbox1内に入力した文字を検索
どこから検索する？ファイル名？PDFファイル内の文章？
textboxからです。
ファイル名を検索します！
質問は編集できますし、前の質問で十分なのでは。
回答はしましたが。
↑前の質問だと意味が違ってますよ。
その PDF ファイルはあちこちに散らばっているんですか？
それとも一か所にまとまっているんですか？
質問をわかりやすく変更しました。
タイトルの通りです。よろしくお願いします。
処理が終わってしまうというか、ShellExecute で止まってるんじゃないですか？
PDF を閉じると続行しませんか？
おっと、ShellExecute は実行終了を待ちませんね。間違えたようです。
関数の中の一行目を選択して F9 を押してみてください。
そうするとその行に赤丸がつきます。
そのまま関数を実行してください。
すると、赤丸の行で一時停止します。
それから F8 を押すたびに一行ずつ実行されるので、どのような流れで実行されるのか見てください。
If Dir(WF3 & folder_name, vbDirectory) <> "" Then
が
strPDFName = Dir(strFolderPath & "\" & "*.pdf")
のループを壊してるので一回しか回らないです。（*.pdfが1つ以上あった場合）
コードやエラーはマークダウンのcode機能を利用してご提示ください。
https://teratail.com/questions/238564
言われてみれば Dir がたくさんありますね。
インデントが無いので処理を追っていませんが、Dir の使い方がわからず同じ流れで何度も呼んでいたということだったんですね。思いもよらない使い方でした。
知らない関数はまず使い方を調べるのが良いと思います。適当にコピペを組み合わせ、動くかどうかは運任せのようなやり方をしていたのでは、作るのに人の数倍の時間がかかるので無駄です。
回答2件
0
VBA
1If Dir(WF3 & folder_name, vbDirectory) <> "" Then
なんでここでDir(WF3 & folder_name, vbDirectory)しているのかよくわらないです
Dir(strFolderPath & "\" & "*.pdf")の結果でループしたいのに、こんなところで
Dir(WF3 & folder_name, vbDirectory)呼び出しているからpdfファイルでのループじゃなくなってる。
ここでは*.pdfが存在するかチェックしたいのだからこう↓じゃないの？
VBA
1If strPDFName <> "" Then
投稿2021/02/08 14:31
総合スコア7918
textbox1に入力した文字で部分一致したフォルダが見つかればそのフォルダからPDFファイルを探し出すと言う意味でそこに
If Dir(WF3 & folder_name, vbDirectory) <> "" Then
を入れていました。
それは
folder_name = "*" & TextBox1 & "*"
strFolderdir = Dir(WF3 & folder_name, vbDirectory)
strFolderPath = WF3 & strFolderdir
strPDFName = Dir(strFolderPath & "\" & "*.pdf")
この4行でやってるのでは？
すみませんそうなると
フォルダがない場合
MsgBox "該当図面は存在しません"
を表示するにはどのような記述が正しいのでしょうか。
であれば、これ↓を実行する前に判定しましょう。
strPDFName = Dir(strFolderPath & "\" & "*.pdf")
この行はフォルダーが存在した場合に実行すべき処理なので。
全体の処理順は以下になるのでは？
・フォルダーが存在するかチェックする
・フォルダーが存在しない場合、エラーメッセージを表示し終了する。
・フォルダーが存在した場合、*.pdfを検索する。
・*.pdfが存在しない場合、エラーメッセージを表示し終了する。
・*.pdf がなくなるまでループし 該当した*.pdfを開く
結局私の回答の通りやってみました？
「該当図面は存在しません」の判定はフォルダーが存在しない場合のみになるけど
とりあえず動くようにはなると思うんですが・・・
ありがとうございます！
動くようになりました。
レスポンス早く分かりやすい回答助かりました！
解決したのであれば解決済みにしましょう。
https://teratail.com/help#resolve-question
0
ToStringで文字列にしてInStrで検索して見つけたら開けばいいです。
投稿2021/02/07 04:54
退会済みユーザー
総合スコア0
VBAにtoStringという名前の機能は存在しないし、
質問に対して何をこたえているのか不明。
なぜこの内容で回答しようと思ったのかわかりません。
お前の方が答えになってないじゃん。
「方が」というほどあなたがまともなコメントをしているようには思えませんが。この方に対してのことを言っているのなら、「丸投げが過ぎるので答える必要がない」とあなたの行為と同じ判断をしているだけです。
ひとまず自慰回答をやめなさい。
いやいや俺の回答はヒントになってる。
お前は糞みたいな価値観を押し付けてるだけ。
糞を押し付けるのはやめなさい。
どの辺がヒントになっていますか？
ToString も InStr も必要ないようですが。
あなたの回答
tips
プレビュー
