Excel VBA 質問スレ Part83 (611ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
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'にアクセスできません
523(2): デフォルトの名無しさん [] 2025/08/01(金) 16:09:22.52 ID:R6RHAbIb(2/4) AAS
>>521521(1): デフォルトの名無しさん [sage] 2025/08/01(金) 12:40:21.47 ID:cEVejwoq(1/2) AAS
>>520
ファイル名で「請求書」の次は「年月日」が来るはずなのに、エラーメッセージの中で16進数になってるのがあきらかにおかしい
本当にそのマクロを動かして、そのエラーが出たの？ちょっとありえないんだけど
再度試しましたが発生しました
エラーメッセージは正確には
ファイル'C:\Users\User\Documents\ファイルパス\請求書\PDF/7E1A4F10'にアクセスできません（7E1A4F10は毎回別の文字列になります）です
昨日からの変更点はSSDが壊れたため、D:/をC:/に変更しました
527: デフォルトの名無しさん [] 2025/08/01(金) 18:38:36.40 ID:R6RHAbIb(3/4) AAS
すいません、/は¥です
コピペしたら変わってた
538(1): デフォルトの名無しさん [] 2025/08/01(金) 22:28:18.18 ID:R6RHAbIb(4/4) AAS
>>534534(1): デフォルトの名無しさん [sage] 2025/08/01(金) 21:13:00.15 ID:49ut/ffG(1) AAS
>>523
ActiveWorkbook.SaveAs
Filename:="C:\Users\User\Documents\ファイルパス\請求書" & " " & Format(Date,
"yyyymmdd") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
請求書フォルダ配下のPDFフォルダを指定してないけどそんなエラーが出る？
保存先が変わってない？
D:→C:～Documents¥に変えたくらいしか心当たりないんです
>>535ごめんなさい
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.120s*