用程序控制Excel开始录制宏或停止录制宏(200分)

W

wuxiaoyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #1

我想Excel录制宏或停止录制宏用程序控制;

请各位高手要帮帮忙！！

 

S

shiny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #2

Application.RecordMacro

 

S

shiny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #3

要取消錄製（例如，如果使用者取消了對話方塊），可使用兩個空字串作為參數呼叫本方法。

 

W

wuxiaoyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #4

shiny：能给了例子吗？我不会用！谢了！

 

W

wuxiaoyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #5

各位大侠:
请帮忙呀!
分数不够再加200!

 

W

wuxiaoyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-02

• #6

各位大侠:
再次请你们帮帮忙呀!
分数不够再加200!

 

Z

ZergWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #7

我也有同样的问题，想请高手回答！

 

Z

ZergWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #8

我知道答案了，不过方法比较笨，不知兄弟还有没有这个需要。[]

 

W

wuxiaoyong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #9

ZergWang:
你能给我发过来吗！
谢了！
successbody@sina.com

 

Z

zhang_yz6666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #10

ZergWang:
也给我一份好吗？
zhang_yz@163.com

 

L

lybdata

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #11

我现在正研究这类问题，请发给我一份：lybdata@21cn.com

 

Z

ZergWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #12

不好意思，好久没来了。所以迟了给大家。
我现在也不一个个的发了。给个方法大家探讨一下吧。
我用的是SENDKEY，传给EXCEL文件一些Key值实现用手操作的
Alt + T + M + R的输入值。
供以后大家参考。
欢迎有高手指出更好的解决办法！！！
给大家一段代码参考，如果写得不好，请不要笑哦：
procedure TForm1.Button5Click(Sender: TObject);
begin
ExcelApp.Visible := True;
ExcelApp.ActiveWorkBook.ActiveSheet.Activate;
if Button5.Caption <> '停止录制宏' then
begin
ExcelApp.SendKeys('~'); // 先输入一个回车键，中止其它EXCEL在改动中的动作
ExcelApp.SendKeys('%TMRInsert~'); // 插入一个名为Insert的宏 %是Alt键，~是回车键
// ExcelApp.SendKeys('%TMR~'); // 插入一个默认名的宏
Button5.Caption := '停止录制宏';
end else
begin
ExcelApp.SendKeys('%TMR');
Button5.Caption := '开始录制宏';
end;
end;