Excel VBA 質問スレ Part83

Excel VBA 質問スレ Part83 (607ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

520(4): デフォルトの名無しさん [] 2025/08/01(金) 10:40:10.51 ID:R6RHAbIb(1/4) AAS
昨日まで使ってたのが急にエラー出るようになったけど何が原因か分からなかったのでアドバイス下さい
使用マクロ
Sub 表作成()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("記")
Dim cmax1 As Long
cmax1=ws1.Range("A1048576").End(xlUp).Row
With ws1.Sort
.SortFields.Clear
.SortFields.Add Key:=ws1.Range("A2"), SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption:=xlSortNormal
.SetRange ws1.Range("A3:L" & cmax1)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("E:E").ColumnWidth = 0
Columns("I:I").ColumnWidth = 0
Columns("K:K").ColumnWidth = 0
ActiveWorkbook.SaveAs
Filename:="C:\Users\User\Documents\ファイルパス\請求書" & " " & Format(Date,
"yyyymmdd") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
End Sub

エラー内容
ファイル'C:\Users\User\Documents\ファイルパス\請求書\7E1A4F10'にアクセスできません

521(1): デフォルトの名無しさん [sage] 2025/08/01(金) 12:40:21.47 ID:cEVejwoq(1/2) AAS
>>520
ファイル名で「請求書」の次は「年月日」が来るはずなのに、エラーメッセージの中で16進数になってるのがあきらかにおかしい
本当にそのマクロを動かして、そのエラーが出たの？ちょっとありえないんだけど

535(1): デフォルトの名無しさん [] 2025/08/01(金) 21:14:40.85 ID:w1WlIxif(2/2) AAS
>>520
シートはコードネームで指定した方がいいと思う
テーブルを使いましょう

542: デフォルトの名無しさん [] 2025/08/02(土) 00:56:41.31 ID:pROVV37J(1/4) AAS
>>520
そもそもなんでファイルフォーマットを指定しているのに
& “.xlsx”
を書いているのですか？
それとactiveworkbook.saveas じゃなくて
thisworkbook.saveasね

546(2): デフォルトの名無しさん [sage] 2025/08/02(土) 10:00:02.65 ID:5rJvWPSX(1) AAS
>>520
Windowsの更新などで、たまにVBAが影響を受けて、マクロが動かなくなるときがある。
特にワークシート名などのオブジェクトをスクリプト内で日本語(2バイト文字)で指定すると、
うまく行かなくなったりした。

まず気になるのは、シート名の"記"を"Notes"あたりにしてやってみるとか？

ファイル名での日本語混じりフルパス指定は、多分影響はないとは思うけど、
「アクセスできません」
の原因がそれだったら、そのパスをワークシートのどこかに名前定義で貼り付けて、
その名前をVBA内でRange()参照するとか

知らんけど。

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.030s