【结贴】帮看看这段代码**

newjack

这段是excel录制的宏,请问如何把下面的代码改写成X3能用的代码呢?这段代码是用于冻结窗格用的
Range("A3:F3").Select
ActiveWindow.FreezePanes = True

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=22763

newjack

选定某个区域的代码我写成
tUsed := DispatchHelper.Create(FApp.PropertyGet('Range', ['A2','F2']));   
但后面那句设定窗口冻结的代码就编制不通过了
tUsed.InvokeMethod('FreezePanes',[true]);

newjack

有人帮看看吗?

newjack

lixy再帮看看呀,急着解决

lixy

procedure TMainForm.Button1Click(Sender: TObject);
var
  lFileName: String;
begin
  if OpenDialog1.Execute then
  begin
    lFileName := OpenDialog1.FileName;
    fxls := ComObj.CreateOleObject('Excel.Application');
    FApp := DispatchHelper.Create(fxls);
    FApp.PropertyPut('Visible', [True]);

    docs := FApp.PropertyGet('Workbooks',  []);
    FDocs := DispatchHelper.Create(docs);

    FDocs.InvokeMethod('Open', [lFileName]);
    end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
//fapp.InvokeMethod('save', []);
  fapp.InvokeMethod('quit', []);
  (docs as System.IDisposable).Dispose;

  (fxls as System.IDisposable).Dispose;

end;

procedure TMainForm.Button3Click(Sender: TObject);
var
Range,aw: DispatchHelper;
begin
//Range("A3:F3").Select
//ActiveWindow.FreezePanes = True
  Range := DispatchHelper.Create(FApp.PropertyGet('Range', ['A3:F3']));//属性和对象
  Range.InvokeMethod('Select',[]);   //事件
  aw:=DispatchHelper.Create(FApp.PropertyGet('ActiveWindow', []));//属性和对象
  aw.PropertyPut('FreezePanes',[true]);
end;

lixy

我需要时间试验，你别催了好不好，谢谢。

newjack

恩,代码写得很清楚.感谢lixy

lixy

下次你自己要翻译vba，我就不再写这种例子了，都是vba的东西。
平台怎么翻译，帖子也很多了。