Vba能够通过读取ini文件控制控件的属性(大小、位置、字体、颜色、样式……)吗？代码怎么写？

VBA必须通过调用WN32 API来实现INI文件的读写，把控件属性及州拆其值在程序退出时写入INI文弊迹睁件，在程序加载时读取INI文件并设置租岁控件属性。

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

Private 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

'INI文件写

'参数：

'strSection：节名称

'strItem：项名称

'strValue：项的值

'strIniFile：INI文件

Private Function WriteIniFile(strSection,strItem,strValue,strIniFile) as Long

Dim lngWriteOk As Long

lngWriteOk = WritePrivateProfileString(strSection,strItem,strValue,strIniFile)

End Sub

'INI文件读

'参数：

'strSection：节名称

'strItem：项名称

'strDefValue：项的默认值

'strIniFile：INI文件

Private Function strReadIniFile(strSection,strItem,strDefValue,strIniFile) as String

Dim lngReadOk As Long

Dim strValue As String

Dim strReadValue As String

strValue=strDefValue

tmpReadValue = String(255, 0)

lngReadOk = GetPrivateProfileString(strSection, strItem, strDefValue, strReadValue, 256, strIniFile)

If lngReadOk then

strValue=trim(strReadValue)

end if

strReadIniFile=strValue

End Sub

你既然会用向导导入的话迟察袜那就很容易获得VBA代码了。

你点“录制宏”，然后开始手工导入一遍这个文件，全部导入完毕后点“停止录制”，然后编辑该宏就可以看到代码了，然后就码激可以根据需要修改了，比如说改一下文件名什么的。

“录制宏”这个工具还是很好用的。

你的意思是想通过对话框获得文件名么?给你一段代码，执行后，没败需要你先选择文本文件，然后清空excel当前页的内容，最后将此文件导入到excel中。

注意:此代码只能导入以逗号作为分隔符的文本。

Sub

Macro2()

Dim

myFileName

As

String

myFileName

=

Application.GetOpenFilename("文本文件(*.txt),*.txt")

ActiveSheet.Cells.Clear

With

ActiveSheet.QueryTables.Add(Connection:="TEXT"

+

myFileName,

Destination:=Range("A1"))

.TextFilePlatform

=

936

.TextFileCommaDelimiter

=

True

.Refresh

End

With

End

Sub

有问题可以直接hi我。

---