delphi读取excel图表中的公式内容 [Vsun你好](200)

Unregistered / Unconfirmed
GUEST, unregistred user!
根据Sheet2工作表中的数据做一簇状柱形图:数据产生区域为A4到D11,系列产生在列。图表标题为“学生成绩统计”。分类轴(X)轴坐标标题为“姓名”,数值(Y)轴标题为“分数”。图表显示在Sheet3工作表中。如何取出:“序列公式”?本题3个答案: (PlotFormulaR1C1) (1) =SERIES(Sheet2!R4C3,Sheet2!R5C1:R11C1,Sheet2!R5C3:R11C3,1) (2) =SERIES(Sheet2!R4C2,Sheet2!R5C1:R11C1,Sheet2!R5C2:R11C2,2) (3) =SERIES(Sheet2!R4C2,Sheet2!R5C1:R11C1,Sheet2!R5C2:R11C2,3)
 

李翔鹏

Unregistered / Unconfirmed
GUEST, unregistred user!
设置书签就行了,然后读取书签就找到了具体的位置了
 

Unregistered / Unconfirmed
GUEST, unregistred user!
不想用书签的办法,有没有其他的办法能解决?
 
V

Vsun

Unregistered / Unconfirmed
GUEST, unregistred user!
对delphi并不是很熟练,对wordapplication也不熟,我的机器上直接用控件用不好,说找不到wordxp.pas文件,我也不知道怎么处理,无奈之下,直接用CreateOleObj来自行创建Com对象。代码如下,给你参考一下。需要引用ComObj单元。tform1.doc文件中输入三段落的文字,以便测试procedure TForm1.Button1Click(Sender: TObject);var MyWord, MyDoc, Mypa: Variant;begin MyWord := CreateOleObject('Word.Application'); MyWord.Visible := true; MyWord.showme; MyDoc := MyWord.documents.open('d:/test.doc'); Mypa := MyDoc.paragraphs.item(2);// Mypa.Range.Font.Size := 64; 设置第二段文本的字体为64磅。 MySent := Mypa.Range.Sentences; ShowMessage('第二段内容:' + Mypa.Range.Text); //显示第二段的内容。 ShowMessage(Format('第二段共有%s条句子.', [MySent.Count])); //显示第二段中的句子总数。 ShowMessage('第二句话内容:' + MySent.item(2).Text);//显示第二段中第二句话的内容。 MyWord.quit; MyDoc := null; MyWord := null;end;test.doc的内容如下:第一个段内容第二个段内容:第一句话。第二句话。第三句话。第四句话。第三个段内容。最后,我还想说一下的是,在做word,excel等开发的过程当中,有时候学会走一下"弯路"很重要的。我所说的弯路是什么呢,就是它们的宏录制=>编辑功能,还有就是VBA的对象浏览器是很重要并很方便的东西,充分利用它们可以省很多事的。唉,我不太会表达,自己去看去体会吧。
 

Unregistered / Unconfirmed
GUEST, unregistred user!
Vsun你好:关于WORD的问题按你的方法已经解决,能否再帮一下,看看下面的问题,积分可以再加,先谢谢了!根据Sheet2工作表中的数据做一簇状柱形图:数据产生区域为A4到D11,系列产生在列。图表标题为“学生成绩统计”。分类轴(X)轴坐标标题为“姓名”,数值(Y)轴标题为“分数”。图表显示在Sheet3工作表中。如何取出:“序列公式”?本题3个答案: (PlotFormulaR1C1) (1) =SERIES(Sheet2!R4C3,Sheet2!R5C1:R11C1,Sheet2!R5C3:R11C3,1) (2) =SERIES(Sheet2!R4C2,Sheet2!R5C1:R11C1,Sheet2!R5C2:R11C2,2) (3) =SERIES(Sheet2!R4C2,Sheet2!R5C1:R11C1,Sheet2!R5C2:R11C2,3)
 
V

Vsun

Unregistered / Unconfirmed
GUEST, unregistred user!
郁闷,你先把这分给我了,第二个问题好说得很,我有种总被骗的感觉。要知道你的第一个问题,我是昨天晚上花了大半个小时的时间查VBA手册才搞出来的,我本来对VBA是不熟息的。
 
S

szhcracker

Unregistered / Unconfirmed
GUEST, unregistred user!
深有同感,LZ还是先还老账再说。
 

Unregistered / Unconfirmed
GUEST, unregistred user!
好的,先结账
 

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 
Top Bottom