问一个语法问题，下面这句VB语言转化为DELPHI应该是什么？请高手作答，谢谢！

[hongyizhujiao]

是这个
ChDir "D:\111"
Workbooks.OpenText Filename:="D:\李渊海\Del新\TK0216.01", StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(24, 1), Array(32, 1) _
, Array(40, 1), Array(48, 1), Array(56, 1), Array(64, 1))
Columns("A:A").EntireColumn.AutoFit

[xjwy]

我不太了解你的OpenText中FieldInfo 参数的含义，因为OpenText没有此参数

OpenText(Filename As String, [Origin], [StartRow], [DataType], [TextQualifier As XlTextQualifier = xlTextQualifierDoubleQuote], [ConsecutiveDelimiter], [Tab], [Semicolon], [Comma], [Space], [Other], [OtherChar], [FieldInfo], [TextVisualLayout], [DecimalSeparator], [ThousandsSeparator])

下面是我按照DELPHI 写的代码，希望对你有帮助

procedure TForm1.Button1Click(Sender: TObject);
var XLApp:Variant;

a:array[0..1, 0..1]of integer ;
begin
chdir('D:\111') ;

a[0,0]:=1;
a[0,1]:=2;
a[1,0]:=3 ;
a[1,1]:=4;
Try
XLApp:=CreateOleObject('Excel.Application'); //打开EXCEL
Except
showmessage('Excel 没有安装，请先安装');
exit;
End;
XLApp.Workbooks.OpenText('c:\1.xls',StartRow:=1, _DataType:=xlFixedWidth,
FieldInfo:=Array(Array(0, 1), Array(24, 1), Array(32, 1) _
, Array(40, 1), Array(48, 1), Array(56, 1), Array(64, 1)) ;
XLApp.Workbooks.Columns("A:A").EntireColumn.AutoFit //这行我不了解是什么含义但是

只 要VBA能通过，用

DELPHI就能调用
End;
end;





end;

[Allblus]

ding

[KevinXXXX]

workbook应该是个m$ word的对象吧？
猜的

[hongyizhujiao]

xjwy(程序春秋) ：我按照你的代码编译不通过，提示‘未定义StartRow’等
求教

[hongyizhujiao]

好久了