如題，我看到百度文庫里有相關的代碼，可是粘貼到delpi中好多都是錯的 比如說
ExcelApp,WorkBook: Olevariant;
ExcelApp:=CreateOleObject('Excel.Application');
creatoleobject這里就是紅色波浪線。。顯示是錯的
有沒有高手給我可以實作這個功能的完整代碼呀~~~~~~
uj5u.com熱心網友回復：
CreateOleObject處報錯,是因為沒有參考ComObj單元uj5u.com熱心網友回復：
可以了~~thx~~
ExcelApp,WorkBook:Olevariant;
ExcelRowCount:=WorkBook.WorkSheets[1].UsedRange.Rows.Count;
for i := 1 to excelrowcount + 1 do
begin
excelx := excelapp.Cells[i,1].Value;
excely := excelapp.Cells[i,2].Value;
這里呢 是不是也是因為我沒有參考啊？
uj5u.com熱心網友回復：
什么錯誤內容uj5u.com熱心網友回復：
參考:ComObj
下面是匯入代碼:
var
ASql, APath: String;
ExcelApp: Variant;
AInt: Integer;
begin
with ADOQuery2 do
begin
Close;
sql.Clear;
SQL.Add('select MAX(ordno) as SDREN from ordtelf');
Open;
if FieldByName('SDREN').AsString<>'' then
begin
MessageBox(Self.Handle,'你資料庫有未完成的匯入的資料,請等待之前的資料完成在匯入!','系統提示',mb_iconquestion);
end
else
begin
if messagebox(Self.Handle,'請選擇業務配送資料包!','系統提示',mb_yesno+mb_iconquestion)=idyes then
begin
If OpenDialog1.Execute Then
APath := OpenDialog1.FileName
Else
Exit;
If not FileExists(APath) Then
Begin
messagebox(self.Handle,'你選擇的檔案不存,請核對','提示資訊',mb_iconinformation);
Exit;
End;
Try
Application.ProcessMessages;
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Workbooks.Open(APath);
ExcelApp.WorkSheets[1].Activate;
ASql := 'select * from lf where 1=2'; //表名 ,也可以在show里面先打開資料集
ADOQuery1.Close; //資料集的 LockType屬性 要設為 ltBatchOptimistic
ADOQuery1.SQL.Text := ASql; //才可以批量保存
ADOQuery1.Open;
For AInt := 2 To ExcelApp.ActiveSheet.UsedRange.rows.count Do //AInt 起始行數，重哪行開始匯入，Aint初始值就是幾
Begin
ADOQuery1.Append;
ADOQuery1.FieldByName('ordno').AsString := ExcelApp.Cells[AInt, 1].Value; //Aint是第幾行，后面的數字是第幾列，
ADOQuery1.FieldByName('ordtype').AsString := ExcelApp.Cells[AInt, 2].Value;
ADOQuery1.FieldByName('ordbdate').AsDateTime := ExcelApp.Cells[AInt, 3].Value;
ADOQuery1.FieldByName('ordedate').AsDateTime := ExcelApp.Cells[AInt, 4].Value;
ADOQuery1.FieldByName('ordsd').AsString := ExcelApp.Cells[AInt, 5].Value;
ADOQuery1.FieldByName('ordmd').AsString := ExcelApp.Cells[AInt, 6].Value;
ADOQuery1.FieldByName('ordcity').AsString := ExcelApp.Cells[AInt, 7].Value;
ADOQuery1.FieldByName('ordcon').AsString := ExcelApp.Cells[AInt, 8].Value;
ADOQuery1.FieldByName('ordadd').AsString := ExcelApp.Cells[AInt, 9].Value;
ADOQuery1.FieldByName('ordtel').AsString := ExcelApp.Cells[AInt, 10].Value;
ADOQuery1.FieldByName('ordmey').AsString := ExcelApp.Cells[AInt, 11].Value;
ADOQuery1.FieldByName('ordsku').AsString := ExcelApp.Cells[AInt, 12].Value;
ADOQuery1.FieldByName('ordskuname').AsString := ExcelApp.Cells[AInt, 13].Value;
ADOQuery1.FieldByName('ordqty').AsFloat := ExcelApp.Cells[AInt, 14].Value;
ADOQuery1.FieldByName('ordte').AsString := ExcelApp.Cells[AInt, 15].Value;
ADOQuery1.Post;
End;
Finally
ExcelApp.WorkBooks.Close;
ExcelApp.quit;
End;
end;
end;
end;
uj5u.com熱心網友回復：
貼出你的例外資訊，和例外斷點處的代碼就行了。。uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
第一次接觸這個。。上面是我從網上復制來修改后的代碼 到底是哪兒錯了。。uj5u.com熱心網友回復：
能不能編譯通過？uj5u.com熱心網友回復：
系統可以跑起來 執行匯入訂單功能是就不行
First chance exception at $7581812F. Exception class EOleSysError with message '沒有注冊類, ProgID: "Excel.Application"'. Process Project1.exe (9216)
First chance exception at $7581812F. Exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process Project1.exe (9216)
uj5u.com熱心網友回復：
上面斷點處的代碼是這一句ExcelID := CreateOleObject( 'Excel.Application' );
uj5u.com熱心網友回復：
procedure DBGrid2Excel(DBGrid:TDBGrid;ExcelFileName:string);
var MyExcel: Variant;
x,y:integer;
begin
deletefile(ExcelFileName);
MyExcel := CreateOleOBject('Excel.Application');
MyExcel.WorkBooks.Add;
MyExcel.Visible := True;
MyExcel.WorkBooks[1].Saveas(ExcelFileName);
dbgrid.DataSource.DataSet.First;
y:=1;
for x:=1 to dbgrid.FieldCount do
begin
MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x] := dbgrid.Fields[x-1].DisplayName;
MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x].Select;
MyExcel.Selection.Font.Bold := true;
MyExcel.WorkBooks[1].WorkSheets[1].Columns[x].ColumnWidth := dbgrid.Fields[x-1].DisplayWidth;
end;
inc(y);
while not dbgrid.DataSource.DataSet.eof do
begin
for x:=1 to dbgrid.FieldCount do
begin
MyExcel.WorkBooks[1].WorkSheets[1].Cells[y,x] := dbgrid.Fields[x-1].AsString;
end;
inc(y);
dbgrid.DataSource.DataSet.next;
end;
end;
uj5u.com熱心網友回復：
這臺電腦有裝Excel嗎uj5u.com熱心網友回復：
有哇。。
uj5u.com熱心網友回復：
你確定裝的是微軟的excel？不是WPS？
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/123423.html
標籤：數據庫相關
上一篇：在dll中讀XML檔案出錯