投稿時間：2007/04/23(Mon) 17:07
投稿者名：popo
Ｅメール：
ＵＲＬ ：
タイトル：印刷
別フォルダに保存
' xlSheet. Range("AZ1:FN1").Select
' ChDir "C:\別フォルダ"
' ActiveWorkbook.SaveAs FileName:="C:\別フォルダ\xlSheet, FileFormat:=xlNormal" _
' Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
' CreateBackup:=False
' コピーしたデータを印刷
' ActiveWorkbook.SaveAs FileName:="C:\別フォルダ\xlSheet.PrintOut"
' データファイル閉じる
' xlApp.ActiveWindow.Close
' プリント処理待ちWait 追加 180秒 2007.01.25 RH
' ************************************************
' Dim varTIME_NOW As Variant
' varTIME_NOW = Now
' While DateDiff("s", varTIME_NOW, Now) < 180
' DoEvents
' Wend
' ************************************************
' Kill pstr422FileList & "\" & strLotNoWk 'ネットワーク先のファイル
上記のデータはエクセルのデータをフォルダにコピーしそのデータを印刷し３分経過後にデータを消去する目的で作成しました。後、どこを修正すればよいか具体的に教えてください。
|