Private Sub Command1_Click()'文本文件保存
CommonDialog1="text.txt" 'CommonDialog1是工程-部件-Microsoft Common Dialog Control 6.0的控件
Open CommonDialog1.FileName For Output As #1
' 以输出方式打开文本文件。
Print #1, "具体内容"
close #1
end sub
Private Sub Command1_Click()'execl文件保存
Dim NewXls As Excel.Application
Dim NewBook As Excel.Workbook
Dim NewSheet As Excel.Worksheet
Set NewXls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
NewXls.SheetsInNewWorkbook = 2'2个sheet
Set NewBook = NewXls.Workbooks.Add '创建工作簿
NewXls.DisplayAlerts = False
'
Set NewSheet = NewBook.Worksheets(1) '设置第一个sheet
NewXls.Workbooks(1).Worksheets(1).Cells(1, 1)="测试"'第一个单元格赋值
NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").Interior.Color = vbred '背景红色
NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").Borders.Weight = xlThin '设置边框
NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").HorizontalAlignment = 3 '设置居中
NewXls.Workbooks(1).Worksheets(1).Range("a1:a1").ColumnWidth = 15 '设置列宽
NewXls.Workbooks(1).Worksheets(1).Name = "测试表"
NewBook.Close (True) '关闭工作簿
Newxls.Quit '结束EXCEL对象
end sub
以上是常用的文本文件,execl文件的保存事例,供参考。