关于公式调用的调用
来源:互联网 发布:安卓系统编程入门 编辑:程序博客网 时间:2024/06/11 19:53
程序中如何实现读取ini文件中的公式,然后进行计算!
例如
A=A+1
我把A+1存储到ini文件中!
然后程序执行时到INI文件中读取公式然后按公式进行计算!
——————————————————————————————
'复制以下脚本到Form1中,添加一个Command1 按钮
'执行前,请确保INI文件为"公式文件"(全路径),Section为"公式Section",Key为: "公式Key"
'即类似:
'[公式Section]
'公式Key=A=A+1
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
'This function is used to get a key value
Private Function GetItemString(ByVal sectionname As String, ByVal KeyName As String, ByVal strIniFile As String) As String
Dim IniString As String
Dim retval, Status, nullpos As Integer
IniString = String(255, " ")
retval = GetPrivateProfileString(sectionname, KeyName, "Not Used", IniString, Len(IniString), strIniFile)
IniString = Trim(IniString)
'delete the null char at the end of string
nullpos = InStr(IniString, Chr$(0))
If nullpos > 0 Then IniString = Left$(IniString, nullpos - 1)
If retval And Left(IniString, 8) <> "Not Used" Then
GetItemString = IniString
End If
End Function
Private Sub Command1_Click()
Dim strFormula As String
'Get formula from Ini file
strFormula = GetItemString("公式Section", "公式Key", "公式文件")
ExecuteLine "Dim A As Long" '定义变量
ExecuteLine strFormula '执行公式,比如A=A+1等
End Sub
当然,执行脚本除了使用VBA.dll中的EbExecuteLine 外,你还可使用Microsoft Script Control(msscript.ocx)控件来处理,效果是相同的。不过使用前者只能在IDE环境运行...
- 关于公式调用的调用
- 关于方法的调用
- 关于WebService的调用
- 关于CE的系统调用
- 关于需要释放的调用
- 关于调用webservice的心得
- 关于return函数的调用!
- 关于函数的调用约定
- 关于static clause的调用
- 关于javascript 函数的调用
- 关于Page_Load的调用问题
- 关于调用exe的问题
- 关于finalize的调用时机
- 关于函数调用的总结
- 关于Polymorphise的调用 ⑤
- 关于Polymorphism的浅析调用
- 关于多重的函数调用
- 关于远程桌面的调用问题
- 如何使用 velocity 模板引擎开发网站
- CString 操作指南
- 网站建设
- Adding XP Visual Styles to Your Visual Basic Application
- ifream中的数据传递
- 关于公式调用的调用
- What is AspectJ
- 有空要仔细研究的知识
- ActiveX控件用于DHTML开发
- 新的一年新的开始
- 2005-12-31(Last Day of 2005)
- 屏幕抓屏
- 宏、函数和宏函数的区别?
- 看了一个月资料,写一篇论文读书心得