![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A 回答 (1件)
- 最新から表示
- 回答順に表示
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?8acaa2e)
No.1
- 回答日時:
この回答への補足
Dim a As Integer
Dim inbox As String
Dim Localpath As Variant
Dim c As Range, myFadd As String
Dim flag As Variant
Dim MyShell As Object
Dim Mysh As String
Dim newHour As Variant
Dim newMinute As Variant
Dim newSecond As Variant
Dim waitTime As Variant
Localpath = ThisWorkbook.Path
a = 1
inbox = InputBox("ファイル検索")
Do
'On Error GoTo flag
If inbox = Empty Then
Exit Sub
End If
If inbox = Cells(a, 1) Then
MsgBox ("あります")
Exit Do
Else
a = a + 1
'ElseIf Cells(a, 1) <> inbox Then
'MsgBox ("ない")
End If
Loop
Set MyShell = CreateObject("WScript.Shell")
MyShell.Run ("AcroRd32.exe /n")
MyShell.Run ("AcroRd32.exe /p") & Localpath & "\" & Myfile & ".pdf"
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Application.SendKeys "{Enter}", True
'次の使用例は、10 秒を過ぎるとメッセージを表示します。
If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "時間が過ぎました。"
End If
こんな感じで作ってみたのですが、PDFは開くのですが、ファイルが見つからないとエラーが出てしまうのですが、どうしてでしょうか?
よろしくお願いします。
ありがとうございました。
参考にさせていただきます。
ちょっと質問内容が分かりにくかったので、再度投稿しなおすことにしました。すいませんでした
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Dropbox スマホのドロップボックスにあるpdfファイルの起動 2 2022/06/18 09:09
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- PDF PDFファイルを分割するマクロの作り方を教えてください。 2 2022/06/24 11:09
- Word(ワード) テキストデータのPDFをWordで開くとテキストが図として認識されてしまう 3 2023/01/24 11:38
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- PDF PDFファイルを開くことができません。 4 2022/06/26 18:08
- その他(IT・Webサービス) WPからダウンロードしたファイル名を指定したい 2 2022/04/08 08:31
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- デスクトップパソコン PDFファイルをネットで公開する方法 5 2022/12/07 13:09
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語初心者の質問失礼します。
-
csvファイルを開かずに文字を検...
-
ファイル名の先頭にアンダース...
-
バッチで118項目のCSVを処理し...
-
テキストファイルの最終行を削...
-
大きいサイズのテキストファイ...
-
SGファイルって何ですか?
-
壁紙変更について
-
CSVファイルへの保存の際、デー...
-
Wordファイルの結合
-
「VBScript」ADODB.Streamにお...
-
フローチャート (ファイル併合...
-
この問題のファイルを読み込ん...
-
ファイルからサイズ不明の行デ...
-
WORDが直接開けない
-
fopenできる上限の変更
-
Excelマクロでの再読込み方法
-
.jarおよび.dllについて
-
分割コンパイルの#defineについて
-
VB.NETによるプロセス間通信
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
C言語初心者の質問失礼します。
-
ファイル名の先頭にアンダース...
-
csvファイルを開かずに文字を検...
-
大きいサイズのテキストファイ...
-
テキストファイルの最終行を削...
-
ドラッグアンドドロップでファ...
-
分割コンパイルの#defineについて
-
バッチで118項目のCSVを処理し...
-
CSVファイルへの保存の際、デー...
-
グローバル変数のよくない使い...
-
C言語のfopenについて教えてく...
-
SGファイルって何ですか?
-
VBに、Cのincludeのようなもの...
-
ファイルの結合
-
fopenできる上限の変更
-
「VBScript」ADODB.Streamにお...
-
iniファイルに追記がしたいです。
-
XMLファイルの表示について
-
Excelマクロでの再読込み方法
-
VBAにてEXCEL以外のファイル(テ...
おすすめ情報