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

Question

是这个
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
  

Answer 1

我不太了解你的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;

Answer 2

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

Answer 3

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