|
こんばんは
> SaveCopyAsのとこでアクセスできまん。とのエラーが表示されました。
> TT & FFは現在開いているファイルなのでかな・・・
SaveCopyAsは「名前を付けて保存」なので別名で一旦xlsファイルとして保存すると、そのブックがActiveWorkbookになるので
SaveAsでFileFormatをxlTextPrinterとして保存すればいいかと思ったのです。
シートは当然1枚だと思うので、こんな感じで、
Sub test_c()
Dim TT As String
Dim FF As String
TT = ThisWorkbook.Path & "\"
FF = "test"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=TT & FF & ".prn", FileFormat:= _
xlTextPrinter, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
|
|