Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10319 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22569】同一ファイル内の指定条件に合うPDFファイルの一括印刷 丸坊主 05/2/23(水) 23:27 質問[未読]
【22571】Re:同一フォルダ内の指定条件に合うPDFファ... 丸坊主 05/2/23(水) 23:39 質問[未読]
【22573】Re:同一フォルダ内の指定条件に合うPDFファ... IROC 05/2/24(木) 8:40 回答[未読]
【22579】Re:同一フォルダ内の指定条件に合うPDFファ... 丸坊主 05/2/24(木) 12:44 質問[未読]
【22582】Re:同一フォルダ内の指定条件に合うPDFファ... IROC 05/2/24(木) 13:06 回答[未読]
【22585】Re:同一フォルダ内の指定条件に合うPDFファ... 丸坊主 05/2/24(木) 13:23 お礼[未読]
【22569】同一ファイル内の指定条件に合うPDFファ...
質問  丸坊主  - 05/2/23(水) 23:27 -
引用なし
パスワード
   はじめまして、VBAビギナーからの質問です。
良きアドバイスお願い致します。
同一ファイル内に数百のファイル（PDFファイル）が収容されております。
この収容されたファイルの中に”K”と言うキーワードが入っているファイルの一括印刷が出来るようなVBAを考えております。
VBAの参考書を購入したものの上手く出来ません。
【22571】Re:同一フォルダ内の指定条件に合うPDFフ...
質問  丸坊主  - 05/2/23(水) 23:39 -
引用なし
パスワード
   同一ファイル内に数百のファイル・・・
では無く、
同一フォルダ内に数百のファイル・・・
でした。間違えました。
▼丸坊主 さん：
>はじめまして、VBAビギナーからの質問です。
>良きアドバイスお願い致します。
>同一ファイル内に数百のファイル（PDFファイル）が収容されております。
>この収容されたファイルの中に”K”と言うキーワードが入っているファイルの一括印刷が出来るようなVBAを考えております。
>VBAの参考書を購入したものの上手く出来ません。
【22573】Re:同一フォルダ内の指定条件に合うPDFフ...
回答  IROC  - 05/2/24(木) 8:40 -
引用なし
パスワード
   >ファイルの中に”K”と言うキーワード
意味不明です。

PDFファイルの中の文字（埋め込みフォント）？　
それとも単にファイル名？　
【22579】Re:同一フォルダ内の指定条件に合うPDFフ...
質問  丸坊主  - 05/2/24(木) 12:44 -
引用なし
パスワード
   言葉が足りませんでした。
申し訳ありません。
ファイル名の最後に”K”が付いています。

▼IROC さん：
>>ファイルの中に”K”と言うキーワード
>意味不明です。
>
>PDFファイルの中の文字（埋め込みフォント）？　
>それとも単にファイル名？
【22582】Re:同一フォルダ内の指定条件に合うPDFフ...
回答  IROC  - 05/2/24(木) 13:06 -
引用なし
パスワード
   Dim myFileName As String
　　　
　　myFileName = Dir("c:\test\*.pdf")
　　
　　Do While myFileName <> ""
　　　　If Mid(myFileName, Len(myFileName) - 4, 1) = "K" Then
　　　　　　MsgBox myFileName & " 　を印刷。"
　　　　End If
　　　　
　　　　myFileName = Dir()
　　Loop
　　
【22585】Re:同一フォルダ内の指定条件に合うPDFフ...
お礼  丸坊主  - 05/2/24(木) 13:23 -
引用なし
パスワード
   早速の回答有難うございました。
早速、参考にして作ってみます。
助かりました。

▼IROC さん：
>Dim myFileName As String
>　　　
>　　myFileName = Dir("c:\test\*.pdf")
>　　
>　　Do While myFileName <> ""
>　　　　If Mid(myFileName, Len(myFileName) - 4, 1) = "K" Then
>　　　　　　MsgBox myFileName & " 　を印刷。"
>　　　　End If
>　　　　
>　　　　myFileName = Dir()
>　　Loop
>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10319 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free