Excel VBA質問箱 IV

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

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


10306 / 13644 ツリー ←次へ | 前へ→

【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
>

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