Call ExportExcel()

function ExportExcel()

	Dim Acc

	Set Acc = CreateObject("Access.Application")
	Acc.OpenCurrentDatabase( "mdbへのパス" )
	Acc.DoCmd.TransferSpreadsheet 1, 8, "T_商品", "ブックへのパス"

end function

enum AcDataTransferType
{
    acImport = 0,
    acExport = 1,
    acLink = 2
};

enum AcSpreadSheetType
{
    acSpreadsheetTypeExcel3 = 0,
    acSpreadsheetTypeLotusWK1 = 2,
    acSpreadsheetTypeLotusWK3 = 3,
    acSpreadsheetTypeLotusWJ2 = 4,
    acSpreadsheetTypeExcel5 = 5,
    acSpreadsheetTypeExcel7 = 5,
    acSpreadsheetTypeExcel4 = 6,
    acSpreadsheetTypeLotusWK4 = 7,
    acSpreadsheetTypeExcel97 = 8,
    acSpreadsheetTypeExcel8 = 8,
    acSpreadsheetTypeExcel9 = 8
};

Call ExportExcel()

function ExportExcel()

	Dim Cn,Query

	Set Cn = CreateObject("ADODB.Connection")
	Cn.Open _
		"Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=ブックへのパス;" & _
		"Extended Properties=""Excel 8.0;"""

	Query = _
		"select * into [T_商品] from " & _
		" [T_商品] in '' [;DATABASE=mdbへのパス]"

	Cn.Execute Query

	Cn.Close

end function

Call ExportExcel()

function ExportExcel()

	Dim Cn,Query

	Set Cn = CreateObject("ADODB.Connection")
	Cn.Open _
		"Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=mdbへのパス;"

	Query = _
		"select * into " & _
		"[T_商品] in '' [Excel 8.0;DATABASE=ブックへのパス] " & _
		"from [T_商品]"

	Cn.Execute Query

	Cn.Close

end function