保存为Execl文件的简单方法

思考~

保存为excel最简单的方法是直接存成.xls，数据之间用tab隔开即可。
下面代码演示保存为Excel的简单方法，当然，要实现复杂的Excel操作还是要调用Excel对象的:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim i%, f1%, filename$
filename = "d:\1.xls"
f1 = FreeFile '建议文件号要这样使用，以防冲突
Open filename For Output As f1
For i = 1 To 5
    Print #f1, i & vbTab & i * 100
Next
Close #f1
ShellExecute 0&, vbNullString, filename, vbNullString, vbNullString, vbNormalFocus
End Sub

mofangbao

谢谢分享 我曾经使用古老的vfp做一个东西时也用过类似的方法 只是实际用excel打开的时候会提示不是正确的格式，但仍然是可以打开的（就类似把txt文件改个后缀为xls一样）不知道这个效果咋样呢

思考~

这个并不提示

sxtylh

谢谢分享，初学者受教了，再次感谢