下記はシートMMMと、MMMを参照しているシートFFFのセットを複数枚複製するVBAを作りました。
シートMMMは一つの所在地の明細表で、最初はブランクです。所在地が複数ある場合にシートを複製します。
For n = 1 To X'(Xは変数です。)
Sheets(Array("MMM", "FFF")).Copy after:=Sheets(Sheets.Count)
Next
ところがMMMには名前「小計」が定義されたセルがあります。
明細表が書ききれなくなり、行を追加され、小計のアドレスが変わっても、後から別シートに全複製シートの小計を参照できるようにするために名前を定義したんです。
ところが、マクロが走ると、その名前を複製後のシートでもその名前を使用するかどうかを聞いてきて、止まってしまいます。
Application.DisplayAlerts = Falseで回避すると、自動的に「はい」になり名前の「小計」は最初のMMMにしか存在しなくなり、参照には使えなくなります。
困りました。
複製された各シートの小計セルに自動で「小計」と名前定義する方法、または別に名前定義でなくてもいいんですが、任意に増やしたMMMやFFFシートの複製の小計があるセルを別のシートに後から参照させる方法はないでしょうか？最初は存在しないシートですんで最初からTOTALのシートで参照しておくことが出来ません。また、行数を増やされる場合があるので、アドレスでは小計のセルを特定出来ないし、最下行でもないのでEnd(xlUp)で取得することもむずかしいんです。
下記はシートMMMと、MMMを参照しているシートFFFのセットを複数枚複製するVBAを作りました。
シートMMMは一つの所在地の明細表で、最初はブランクです。所在地が複数ある場合にシートを複製します。
For n = 1 To X'(Xは変数です。)
Sheets(Array("MMM", "FFF")).Copy after:=Sheets(Sheets.Count)
Next
ところがMMMには名前「小計」が定義されたセルがあります。
明細表が書ききれなくなり、行を追加され、小計のアドレスが変わっても、後から別シートに全複製シートの小計を参照できるようにするために名前を定義したんです。
ところが、マクロが走ると、その名前を複製後のシートでもその名前を使用するかどうかを聞いてきて、止まってしまいます。
Application.DisplayAlerts = Falseで回避すると、自動的に「はい」になり名前の「小計」は最初のMMMにしか存在しなくなり、参照には使えなくなります。
困りました。
複製された各シートの小計セルに自動で「小計」と名前定義する方法、または別に名前定義でなくてもいいんですが、任意に増やしたMMMやFFFシートの複製の小計があるセルを別のシートに後から参照させる方法はないでしょうか？最初は存在しないシートですんで最初からTOTALのシートで参照しておくことが出来ません。また、行数を増やされる場合があるので、アドレスでは小計のセルを特定出来ないし、最下行でもないのでEnd(xlUp)で取得することもむずかしいんです。
以前こちらでAccessからExcelファイルの操作方法を教えて頂き下記のように記述しているのですがC:\test.xlsのExcelファイルに何も出力されません。
又、エラーも出ません。
どこに誤りがあるか教えていただけますでしょうか。
長くなり大変申し訳ございませんが宜しく御願い致します。
-----------------------------------------------
Private Sub Command1_Click()
On Error Resume Next
Dim objExcelApp As Workbook
Dim strExcelFile As String
Dim strExcelSheet As String
Dim xlSheet As Excel.Worksheet
strExcelFile = "C:\test.xls" 'エクセルのファイル名
xlSheet = "aaaaa" 'ブックのシート名
Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")
xlSheet.Cells(1, 1).Value = "12"
With objExcelApp.Worksheets(xlSheet)
With .Cells(1, 1)
.Font.Size = 18
.Font.Name = "ＭＳ Ｐ明朝"
.Font.Bold = True '太字の指定
End With
.Cells(1, 1).ColumnWidth = 8
.Rows(1).RowHeight = 26
End With
xlSheet.PrintOut
objExcelApp.Application.Quit
Set objExcelApp = Nothing
DoCmd.Close
End Sub
-------------------------------------------------
以前こちらでAccessからExcelファイルの操作方法を教えて頂き下記のように記述しているのですがC:\test.xlsのExcelファイルに何も出力されません。
又、エラーも出ません。
どこに誤りがあるか教えていただけますでしょうか。
長くなり大変申し訳ございませんが宜しく御願い致します。
-----------------------------------------------
Private Sub Command1_Click()
On Error Resume Next
Dim objExcelApp As Workbook
Dim strExcelFile As String
Dim strExcelSheet As String
Dim xlSheet As Excel.Worksheet
strExcelFile = "C:\test.xls" 'エクセルのファイル名
xlSheet = "aaaaa" 'ブックのシート名
Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")
xlSheet.Cells(1, 1).Value = "12"
With objExcelApp.Worksheets(xlSheet)
With .Cells(1, 1)
.Font.Size = 18
.Font.Name = "ＭＳ Ｐ明朝"
.Font.Bold = True '太字の指定
End With
.Cells(1, 1).ColumnWidth = 8
.Rows(1).RowHeight = 26
End With
xlSheet.PrintOut
objExcelApp.Application.Quit
Set objExcelApp = Nothing
DoCmd.Close
End Sub
-------------------------------------------------
