VB 如何在关闭程序之前保存配置

在form_unload中把label.caption保存到记事本中

在form_load事件中把label.caption在读出来

VB本身是不支持保存的

不好意思，之前的代码没调试过，这个我刚调试过，可以链升的

Private Sub Command1_Click()

Static a As String

a = InputBox("input new name")

Label1.Caption = a

End Sub

Private Sub Form_Load()

Dim st As String

'form_load事件中新建记事本，append方法为：如团做果没有就新建，有就打开

Open "ss.txt" For Append As #2

Close #2

Open "塌唤衡ss.txt" For Input As #2

If FileLen("ss.txt") = 0 Then GoTo nextstep

Line Input #2, st

nextstep:

Close #2

If st <>"" Then Label1.Caption = st

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open "ss.txt" For Output As #1

Print #1, Label1.Caption

Close #1

End Sub

再次致歉！

PrivateSubCommand1_Click()'盯孝首先通过VB的菜单[工程]--[引用]，勾选：MicrosoftExcel11.0ObjectLibrary'其中11.0是岁困不一定的，要看你计算机安装的OFFICE版本而定DimxlsAppAsExcel.Application'声明对乎则念象变量SetxlsApp=Excel.Application'实例化对象xlsApp.Visible=False'使Excel隐藏不可见xlsApp.Workbooks.Open("C:\book1.xls")'打开EXCEL文件'这里开始就是你录制的VBA代码'我在这里举1个例子，主要是告诉你要明确 *** 作的是哪个表xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value="您好！"'在指定表的单元格编辑文本xlsApp.ActiveWorkbook.Closesavechanges:=True'关闭活动工作簿同时保存对它的更改。xlsApp.Quit'关闭EXCELLSetxlsApp=Nothing'释放资源EndSub最后三步，很关键。

加上下面这两句就可以了

Exb.Close 关闭工作销唯薄

ExApp.Quit 关闭EXCEL这个程序

更察斗喊败野详细内容请看下面的博客:

http://jsbjsl.blog.163.com/blog/static/52942790200832434519880/edit/

---