Access VBA转成Delphi语言 ( 积分: 150 )

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #1

Option Compare Database
Option Explicit

'文件的导入
Public Sub INOUT_P()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "供应商", "C:/FAC/CH11/A1.xls", True, "A1:G54"
End Sub

 

L

lake_cx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #2

uses Access_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
AccessApp: OleVariant;
begin
AccessApp := CreateOleObject('Access.Application');
AccessApp.OpenCurrentDatabase('F:/My Documents/项目/外资/WZSJBase.mdb');
AccessApp.DoCmd.TransferSpreadsheet(acExport, acSpreadsheetTypeExcel9, 'templType', 'G:/a.xls');
end;

多谢楼主，学到一招，可以这样到处Excel

 

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #3

Access_TLB请问,是从那里得到的啊.是不是还要安装什么Component才能引用这个.

 

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-03

• #4

还是什么package啊,才能引用

 

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-04

• #5

问题解决.我又找到了一种方法.
1 使用Server 页面中的AccessApplication

 

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-04

• #6

AccessApplication1.OpenCurrentDatabase('F:/测试/Server-AccessApplication VBA/db/B2.mdb' ,false,'''');
AccessApplication1.DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel8, 'Budget1', 'F:/测试/Server-AccessApplication VBA/Excel/A1.xls', True,'','');
AccessApplication1.DoCmd.TransferSpreadsheet(acImport, acSpreadsheetTypeExcel8, 'Budget2', 'F:/测试/Server-AccessApplication VBA/Excel/A2.xls', True,'','');

 

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-04

• #7

2 lake_cx

不用uses Access_TLB;
uses AccessXP;

 

L

lake_cx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-06

• #8

导入Access的类型库。。。
我最讨厌那Servers中的东西了，封装的又不全面，其实就是导入的类型库，我还不如直接操作接口。。。不过我更喜欢使用OLE操作。。。

 

Q

q_sand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-07

• #9

谢谢