![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
入庫.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 VBAからExcelシートの削除
Excel(エクセル)
-
5
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
6
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
9
ACCESSのVBAにてExcelに行を追加したい
その他(データベース)
-
10
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
ACCESS、VBAでEXCELファイルをコピーはできますか
その他(データベース)
-
13
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
-
14
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
15
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
16
Access-VBAでExcelファイルを作成する。
Excel(エクセル)
-
17
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
18
ACCESS VBAでExcelを開き行をコピーしたい
Visual Basic(VBA)
-
19
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
20
アクセスで#エラーを表示させない方法は?
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSのVBAにてExcelのシ...
-
同一ブック内・別シートの内容...
-
エクセルVBAで名前の決まってい...
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
UserForm1.Showでエラーになり...
-
Excel マクロ VBA プロシー...
-
配列数式の解除
-
教えて下さい
-
エクセルで特定の列が0表示の場...
-
String""から型'Double'への変...
-
TERA TERMを隠す方法
-
文字列内で括弧を使うには
-
wordを起動した際に特定のペー...
-
VBAでfunctionを利用しようとし...
-
一つのTeratermのマクロで複数...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロで"#N/A"のエラー行を削...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのVBAにてExcelのシ...
-
excelのInitializeイベントとAc...
-
Excelマクロ 別シートへ連続コ...
-
エクセルVBAで名前の決まってい...
-
「IsText」の使い方を教えてく...
-
EXCELで1シートのデータを複数...
-
同一ブック内・別シートの内容...
-
excel
-
VBAでシートをまたぐ処理の方法
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
UserForm1.Showでエラーになり...
-
配列数式の解除
-
メッセージボックスのOKボタ...
-
教えて下さい
-
String""から型'Double'への変...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
おすすめ情報