|
▼ウッシ さん:
>こんばんは
>
>> 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
ありがとうございました。上記の様にしたら解決しました。
お手数をお掛けしました。今後もよろしくお願いします。
|
|