入庫.xlsに現在、"原紙"というシートがあります。
入庫.xlsには、"原紙"と入庫のあった日のシートがあるようにしたいのです。
今日、入庫があれば、入庫.xlsには
"原紙"と"20"のシートが存在するようにしたいのです。
AccessのVBAにて1文でシートのコピーってできないでしょうか?
Dim oApp As Object
Dim StWk1 As String
Dim SHizk As String
Dim Hizk As Integer
Hizk = DatePart("d", Me![入庫日付])
SHizk = CStr(Hizk)
StWk1 = "c:入庫.xls"
Set Xls = GetObject(StWk1)
Xls.Application.Windows(1).Visible = True
Xls.Application.worksheets("原紙").Copy After:=Xls.Application.worksheets(SHizk)
Xls.Application.worksheets(SHizk).Activate
上記のように作成してみたのですが、実行すると、
Xls.Application.worksheets("原紙").Copy After:=Xls.Application.worksheets(SHizk)
のところで、エラーになります。
実行エラー'9':
インデックスが有効範囲にありません。
のメッセージが表示されます。
教えてください。
No.3ベストアンサー
- 回答日時:
Private Sub CmdCopySheet_Click()
'Dim xlApp As Excel.Application
'Dim xlBook As Excel.Workbook
'Dim xlSheet As Excel.Worksheet
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim stFileName As String
Dim stSheetName As String
Dim lngCnt As Long
'ファイル名指定
stFileName = "C:\入庫.xls"
'コピーシート名指定
stSheetName = Format(Date, "dd")
'エクセル展開
'Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(stFileName)
'コピー先取得
For Each xlSheet In xlBook.Worksheets
If xlSheet.Name = stSheetName Then
If Len(stSheetName) = 2 Then
stSheetName = stSheetName & " (2)"
Else
stSheetName = Left(stSheetName, 2) & " (" & Val(Mid(stSheetName, 5)) + 1 & ")"
End If
End If
lngCnt = lngCnt + 1
Next
'シートコピー
Set xlSheet = xlBook.Worksheets("原紙")
xlSheet.Copy , xlBook.Worksheets(lngCnt)
'シート名変更
lngCnt = lngCnt + 1
Set xlSheet = xlBook.Worksheets(lngCnt)
xlSheet.Name = stSheetName
'エクセルファイルを閉じる
xlBook.Close (True)
xlApp.Quit
'オブジェクトの開放
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
'完了メッセージ
MsgBox "シートをコピーしました"
End Sub
作成時は、参照設定で「Microsoft Excel *.* Object Library」にチェックをつけておくと楽ですよ
作成し終わったら、CreateObjectを使って参照設定を元に戻しておけば、バージョン違いのエクセルにも対応できます
No.2
- 回答日時:
Xls.Application.worksheets("原紙").Copy After:=Xls.Application.worksheets(SHizk)
ですが、After は、コピーしたシートを After で指定したシートの後ろに挿入するということなんですが、実行時にまだ存在しないシートを指しているので、エラーになるようです。
Xls.Application.worksheets(SHizk).Activate
も同様です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ACCESSVBA からExcelの他ブックへコピーの方法
Visual Basic(VBA)
-
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
-
4
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
5
Access VBAからExcelシートの削除
Excel(エクセル)
-
6
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
7
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
10
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
ACCESS、VBAでEXCELファイルをコピーはできますか
その他(データベース)
-
13
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
14
「RunSQL」と「Execute」の違い
Access(アクセス)
-
15
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
16
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
17
Access-VBAでExcelファイルを作成する。
Excel(エクセル)
-
18
ACCESSのVBAにてExcelに行を追加したい
その他(データベース)
-
19
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
20
Access2000でのExcel行の削除法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロ 別シートへ連続コ...
-
「IsText」の使い方を教えてく...
-
ACCESSのVBAにてExcelのシ...
-
特定のPCだけ動作しないVBAマク...
-
UserForm1.Showでエラーになり...
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
ExcelのVBA。public変数の値が...
-
一つのTeratermのマクロで複数...
-
String""から型'Double'への変...
-
文字列内で括弧を使うには
-
TERA TERMを隠す方法
-
メッセージボックスのOKボタ...
-
Excel VBAからAccessマクロを実...
-
Excel マクロ VBA プロシー...
-
ExcelVBAでPDFを閉じるソース
-
ユーザーフォームを起動しなが...
-
実行時エラー'-2147467259(8000...
-
End Sub が必要です。
-
配列数式の解除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
ACCESSのVBAにてExcelのシ...
-
Excelマクロ 別シートへ連続コ...
-
エクセルVBAで名前の決まってい...
-
VBAで繰り返し処理の速度を...
-
「シートを削除しますか」のメ...
-
excel
-
VBAでシートをまたぐ処理の方法
-
VBA処理でこんな条件処理ってで...
-
エクセルVBAでブックの分割
-
オートシェイプの不具合について
-
同一ブック内・別シートの内容...
-
エクセル2010の内容を次のシー...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
UserForm1.Showでエラーになり...
-
Excel マクロ VBA プロシー...
-
配列数式の解除
-
メッセージボックスのOKボタ...
おすすめ情報