ActiveWorkbook.Save関数でファイルを保存しようとします。ファイルgetは壊れていて、もう使用できません。 私はすでにActiveWorkbook.SaveCopyAs関数を試しましたが、結果は同じです。この例の下に。私は底に使用されている2つの他の関数を追加しました。 CheckPublishedは Sub Publish_WB()
Dim ws As Worksheet
Excelのワークシートをxltextファイルに出力するには、以下のsaveas()関数を使用しようとしています。ファイルは正常に生成されますが、#、###。00という特殊な書式の番号が付けられます。単に1,000.00ではなく「1,000.00」として出力されます。これらの二重引用符を削除するにはどうしたらいいですか? Dim tab_output_line, tab_output_head,
ブック(すべてのシート)を1つのWord文書として保存します。 1枚はドキュメントの1ページです。 私はアクティブシートを保存するためのコードしか見つかりません。 Sub ExcelToWord()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim objWd As Object
Set objWd = CreateObject("word.appl