| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265457
建立时间:2005年6月6日 |
| |
|
 [delpih编程]取股票日线代码
软件技术
吕向阳 发表于 2012/9/19 20:14:15 |
unit USTOCKS;
interface
uses system.IO;
const HS = 85;
type
dayline = record
date: double;
startj: double;
maxj: double;
minj: double;
endj: double;
a6: double;
totalsl: double;
a8: double;
end;
type
xSTOCKS = class
private
{ Pri |
|
|
[delpih编程]在excel中一次性断开所有的链接
软件技术
吕向阳 发表于 2011/7/15 12:47:32 |
lks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For i = 1 To UBound(lks)
ActiveWorkbook.BreakLink Name:=lks(i), Type:=xlLinkTypeExcelLinks
Next
|
|
|
[delpih编程]测试范例：delphi向excel写入宏代码,运行excel宏代码
软件技术
吕向阳 发表于 2011/6/12 20:56:09 |
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
PathName: string;
oldcur: tcursor;
FExcelApplication: TExcelApplication;
FExcelWorkbook: TExcelWorkbook;
FExcelWorksheet: TExcelWorksheet;
xl: olevariant;
V: _VBComponent;
vArg1, vArg2, vArg3, vArg4, vArg5, vArg6, |
|
|
[delpih编程]word中运行vba 出现 运行时错误"1004"
软件技术
吕向阳 发表于 2011/5/18 22:07:48 |
我用word 2010编了一个vba程序，在word 2003下运行时出现
运行时错误"1004"
经过调试，最后发现，在word2010中支持的语句saveas2，在word2003出错，重新改为saveas语句，在word2003下程序正确运行。
经验是尽量使用低版本中的语法，因为大部分软件向下兼容的。
|
|
|
[delpih编程]word也用正则表达式
软件技术
吕向阳 发表于 2011/5/16 14:12:05 |
word 中的查找替换很强悍，能实现一些简单的正则表达式。
如将
1.
2.
等开头的段落文字替换为
[(1.)]
[(2.)]
在查找替换框中查找格内输入
(<[1-9]{1,2}[.,．])
替换格内输入
[(\1)]
点选高级中的通配符，再点全部替换即可。
值得提醒的是查找范围中前后一定用小括号围起来，才能使用。
|
|
|