エクスポート

  Excel へエクスポート



  
Call ExportExcel()

function ExportExcel()

	Dim Acc

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

end function
  

TransferSpreadsheet ( Microsoft へのリンク )

  
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
};

  



  ADO 使用の場合



  
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
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ