大家快看看！(50分)

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #1

在利用ole对象时，我通过app:=createoleobject('excel.application');对象后，如何查找
特定名称的工作薄以及工作表，并打开；

 

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #2

专家们：
快来看看；
~D~

 

P

pie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #3

查找文件 可以用DELPHI 里的findFirst findNext 函数配合

var
i:integer;
searchRec:TSearchRec;
begin
ListBox1.Item.Clear;
FindFirst(Edit1.text,faAnyFile,SeachRec);
ListBox1.Item.Add(SeachRec.Name);
Repeat
i:=FindNext(SeachRec);
if i=0 then listBox1.Items.Add(SeachRec.name);
until i<>0;
end

用录制宏的方法查得： 打开的方法

App.Workbooks.Open Filename:= _
'C:/Documents and Settings/Administrator/My Documents/cccccccccc1.xls'
app.Sheets('Sheet1').Select

 

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #4

我的意思你可能没明白：
文件名称我已经知道，现在是如何打开文件中某一个特定名称的sheet表；

 

P

pie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #5

App.Workbooks.Open Filename:=
'C:/Documents and Settings/Administrator/My Documents/cccccccccc1.xls';
app.Sheets('Sheet1').Select;

不行吗？

 

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #6

我先看看，好用的话。马上给你加上；

 

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #7

pie:>>
app.workbooks.open('c:/saporder.xls');
app.sheets('wls01').select;

提示：索引无效；
我检查了excel;文件只有一个‘wls01’页

 

P

pie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #8

var i:integer;
begin
if OpenDialog1.Execute then
begin
App:=CreateOleObject('Excel.application');
app.workbooks.open(OpenDialog1.FileName);
i:=1;
while (app.ActiveWorkBook.WorkSheets.Name<>'wls01') and (I<100) do
begin
inc(I);
end;
app.ActiveWorkBook.WorkSheets.Activate;

但是我无法知道count错市内电话最大值。

大家一起努力！！

 

P

pie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #9

你自己也记录宏的方法， 并充看VBA的帮助研究研究！

 

Z

zhengzhijia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #10

谢谢！答案先接受，有机会在聊！