Excel VBA 質問スレ Part83 (611ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
520(4): 08/01(金)10:40 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): 08/01(金)12:40 ID:cEVejwoq(1/2)調 AAS
>>520
ファイル名で「請求書」の次は「年月日」が来るはずなのに、エラーメッセージの中で16進数になってるのがあきらかにおかしい
本当にそのマクロを動かして、そのエラーが出たの？ちょっとありえないんだけど
535(1): 08/01(金)21:14 ID:w1WlIxif(2/2)調 AAS
>>520
シートはコードネームで指定した方がいいと思う
テーブルを使いましょう
542: 08/02(土)00:56 ID:pROVV37J(1/4)調 AAS
>>520
そもそもなんでファイルフォーマットを指定しているのに
& “.xlsx”
を書いているのですか？
それとactiveworkbook.saveas じゃなくて
thisworkbook.saveasね
546(2): 08/02(土)10:00 ID:5rJvWPSX(1)調 AAS
>>520
Windowsの更新などで、たまにVBAが影響を受けて、マクロが動かなくなるときがある。
特にワークシート名などのオブジェクトをスクリプト内で日本語(2バイト文字)で指定すると、
うまく行かなくなったりした。
まず気になるのは、シート名の"記"を"Notes"あたりにしてやってみるとか？
ファイル名での日本語混じりフルパス指定は、多分影響はないとは思うけど、
「アクセスできません」
の原因がそれだったら、そのパスをワークシートのどこかに名前定義で貼り付けて、
その名前をVBA内でRange()参照するとか
知らんけど。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.017s