Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (99ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
33: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 13:55:04.13 ID:ulv10UCb0(1/4) AAS
助けて下さい
txtに変換して
そのtxtを別のアプリで
読み込もうとしています

Application.CutCopyMode = False
Dim book1 As Workbook
Sheets("label").Select

Application.DisplayAlerts = False

Set book1 = Workbooks("◯◯◯.xlsm")

book1.SaveAs Filename:="C:\Users\aaaaa\Desktop\片山\label.txt", _
FileFormat:=xlCurrentPlatformText

Application.DisplayAlerts = False

Range("B3").Select

Sheets("入力チェック表").Select

Range("H4").Select

Application.Quit

ThisWorkbook.Close

ActiveWorkbook.Close SaveChanges:=False

End Sub
34(2): デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 14:01:19.14 ID:ulv10UCb0(2/4) AAS
シートlabelをtxtに変換して
別のアプリで読み込もうと思います

ですが、最後はエクセルが
終了してしまうため
(bookが閉じる)
終了しないようにしたいのですが

最後3行を削除すると
txtを保存するためのアラートが出たり
アプリで読み込むと
読込エラーが出たりします
(txtファイル使用中の為？)

エクセル終了しない方法は
ありますか？
36(1): デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 15:09:35.81 ID:ulv10UCb0(3/4) AAS
>>35
35(1): デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 14:30:10.11 ID:JDdDfN3id(1) AAS
>>34
Application.quitしてるからExcelが終了するのは当然では
ありがとうございます

>>34
Application.quit
を削除したのですが
エクセルは終了しませんが
book？が終了します
39: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 16:28:38.79 ID:ulv10UCb0(4/4) AAS
>>37
37(1): デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 15:47:42.35 ID:2VB/Vbesd(1/2) AAS
>>36
ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる
だから閉じるしかないと思うよ
アドバイスありがとうございます
閉じるしか
無理ですか...
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.483s*