500分求在excel中读取ini文件的例子,没有试验成功别来!

火鸟33 2003-12-12 03:38:57
在自己的机子跑成功再说


反正我怎么读都是空的
...全文
41 16 打赏 收藏 举报
写回复
16 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
火鸟33 2003-12-15
上msn阿,还有400分呢!
  • 打赏
  • 举报
回复
SoHo_Andy 2003-12-15
呵呵,终于搞定了,恭喜了
  • 打赏
  • 举报
回复
火鸟33 2003-12-15
冰冰,好了,给分廖
  • 打赏
  • 举报
回复
mingtian2008 2003-12-12
up
  • 打赏
  • 举报
回复
SoHo_Andy 2003-12-12
又发送一次,收到回复
发到这个地址 taoyonggang@hotmail.com
  • 打赏
  • 举报
回复
SoHo_Andy 2003-12-12
我的例子已经发给你啦,没收到么
  • 打赏
  • 举报
回复
golden24kcn 2003-12-12

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString _
As String, ByVal nSize As Long, ByVal lpFilename As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As _
String) As Long

Function ReadINI(AppName$, Keyname$, filename$) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
ReadINI = Left(RetStr, GetPrivateProfileString(AppName$, ByVal _
Keyname$, "", RetStr, Len(RetStr), filename$))
End Function

Function WriteINI(mizainz$, Place$, Toput$, AppName$)
r% = WritePrivateProfileString(mizainz$, Place$, Toput$, AppName$)
End Function
  • 打赏
  • 举报
回复
火鸟33 2003-12-12
不行啊,能把例子发给我么?

哎。。。。
  • 打赏
  • 举报
回复
SoHo_Andy 2003-12-12
搞定了,发给你了,请接收
如果不行请回复我
  • 打赏
  • 举报
回复
SuperZhou 2003-12-12
用上面的API应该可以呀,如果实在不行,建议你重新安装Office或用另外一台机器试试
  • 打赏
  • 举报
回复
jhzhou882 2003-12-12
我是WIN2000 OFFICE2000
可以跑起来
  • 打赏
  • 举报
回复
lxcc 2003-12-12
Workbooks.OpenText Filename:="D:\phrase.ini", StartRow:=1, DataType:= _
xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False _
, FieldInfo:=Array(1, 1)
Range("A9").Select
ActiveWindow.SmallScroll Down:=-15
  • 打赏
  • 举报
回复
zhangzhijian 2003-12-12
态度不好,晕!
  • 打赏
  • 举报
回复
火鸟33 2003-12-12
excel2002 winxp


不行,你把你的excel文件发过来

taoyonggang@hotmail.com

我跑成功就给分

反正我这里不行,搞廖2周了,没有一个成功
  • 打赏
  • 举报
回复
jhzhou882 2003-12-12
Option Explicit

Public Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
'INIファイル
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
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function ReadIni(ByVal inifile As String, ByVal section As String, ByVal strEntry As String) As String

Dim s As String * 1024
Dim l As Long

l = GetPrivateProfileString(section, strEntry, "", s, 1024, inifile)
ReadIni = Left(s, InStr(s, Chr(0)) - 1)

End Function
下面为调用:
INI文件格式
[main]
drawtitlebox=0
strDBName = ReadIni("c:\Skin.ini", "main", "drawtitlebox")

  • 打赏
  • 举报
回复
火鸟33 2003-12-12
使用vba,不要用控件,使用win32 api
  • 打赏
  • 举报
回复
发帖
VB基础类
加入

7604

社区成员

VB 基础类
社区管理员
  • VB基础类社区
申请成为版主
帖子事件
创建了帖子
2003-12-12 03:38
社区公告
暂无公告