大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以调用CMD
成都创新互联公司专业为企业提供雷州网站建设、雷州做网站、雷州网站设计、雷州网站制作等企业网站建设、网页设计与制作、雷州企业网站模板建站服务,十多年雷州做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
方法一:
Shell("cmd.exe /c call c:\新建文本文档.txt", AppWinStyle.NormalFocus)
缺点:不但会打开文本文件,同时还会显示一个cmd窗体。
方法二:
需要新建一个bat文件到资源里,输入start C:\新建文本文档.txt
代码
shell "bat文件的路径.bat"
这样就好了,两种方法各有好坏。一个会显示cmd窗体,一个需要bat文件。
现在工程里添加引用Microsoft.Office.Interop.Excel,然后可以使用如下代码输出。
Dim oXl As Excel.Application = New Excel.Application()
Dim oWb As Excel.Workbook
Dim oWs As Excel.Worksheet
On Error GoTo Morn
oWb = oXl.Workbooks.Add()
oWs = oWb.Worksheets(1)
With oWs
.Cells._Default(1, 1).Value ="a"
.Cells._Default(1, 2).Value ="b"
.Cells._Default(1, 3).Value ="c"
.Cells._Default(1, 4).Value ="d"
.Cells._Default(2, 1).Value ="32"
.Cells._Default(2, 2).Value ="1"
.Cells._Default(2, 3).Value ="90"
.Cells._Default(2, 4).Value ="合格"
End With
oWs.Parent.Names.Add("CostRange", "=" "A1:B39")
oWs.SaveAs(sFileName)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
If MsgBox("已将数据输出到Excel文件中! 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then
oXl.Quit()
Else
oXl.Visible = True
End If
oXl = Nothing
oWs = Nothing
oWb = Nothing
vb.net保存后在菜单文件中打开。
在菜单中文件中选择生成EXE文件,然后打开Exe文件就可以了。
VB.NET是基于.NET框架的完全对向对象的编程语言,而vb6.0只是半面向对象的语言,使用vb.net可以编制出功能更加强大的windows程序。