• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• jan82015/11/05 22:50:41

  満足500pt

  日付が入ったファイルと同じ場所に
  "ファイル名.vbs"で保存してください。
  要求と違うところがあれば教えてください。
  

  Set objWShell  = WScript.CreateObject("WScript.Shell")
  Set objShell   = WScript.CreateObject("Shell.Application")
  Set objFileSys = WScript.CreateObject("Scripting.FileSystemObject")
  Set objExcel   = WScript.CreateObject("Excel.Application")
  
  'コメントを取るとExcelがフォアグラウンドで開きます
  'objExcel.Visible = True
  
  strCurPath = objWShell.CurrentDirectory
  
  on error resume next
  '①そのフォルダから当日のファイル名を探します。
  Set objXlsFile = objExcel.Workbooks.Open( strCurPath & "\" & Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2) & ".xls" )
  if Err.Number <> 0 then
  	objExcel.Quit()
  	Wscript.Echo Err.Description & vbCrLf & strCurPath
  	Wscript.Quit()
  end if
  '③特定シートをPDF化します(シートを指定、指定しない場合、アクティブシートがPDF化される)
  mySheetNumber = objXlsFile.Worksheets("作業○○").Index
  if Err.Number <> 0 then
  	objExcel.Quit()
  	Wscript.Echo Err.Description & vbCrLf & strCurPath
  	Wscript.Quit()
  end if
  '④指定フォルダに格納します(フォルダを指定、指定しない場合、同じフォルダに格納される)
  Set objFolder = objShell.BrowseForFolder(0, "PDFファイル格納フォルダの指定(未指定時は現在のフォルダに格納します)", 0, "C:\")
  if Err.Number <> 0 then
  	objExcel.Quit()
  	Wscript.Echo Err.Description & vbCrLf & strCurPath
  	Wscript.Quit()
  end if
  
  If Not objFolder Is Nothing Then
      strCurPath = objFolder.Items.Item.Path
  End If
  
  on error goto 0
  
  '②特定シートをPDF化します ④指定フォルダに格納します
  Call objXlsFile.ExportAsFixedFormat(0 , strCurPath & "\提出用.pdf", xlQualityStandard, False, False, mySheetNumber, mySheetNumber, True )
  '最後の"True"を"False"にすると、発行後にファイルがビューアーに表示されなくなります。
  
  objExcel.Quit()
  
  Set objWShell  = Nothing
  Set objFileSys = Nothing
  Set objExcel   = Nothing
  Set objXlsFile = Nothing
  Wscript.Quit 0
  

  スター

その他の回答

この質問へのコメント

• jan82015/11/05 20:16:39
  シートをPDF化する機能のある
  Excel2007以降に限定しても宜しいですか？
• jan82015/11/05 20:21:01
  下記コードを改造すれば要求を満足するスクリプトが出来ると思います。
  http://logicalerror.seesaa.net/article/144750949.html

質問の情報

登録日時

2015-11-05 11:34:17

終了日時

2015-11-06 22:14:42

回答条件

1人10回まで

この質問のカテゴリ

• ビジネス・経営
• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者16時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者116時間前
• 内定してほしいポケモンはいますか？匿名質問者17時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ