VB调整Excel格式
Private Sub Cmd_OK_Click()
Dim ExcelAppX As Excel.Application
Dim ExcelBookX As Excel.Workbook
Dim ExcelSheetX As Excel.Worksheet
Dim a(1 To 3) As Single
Dim strFormat As Variant
a(1) = 7.3456
a(2) = 2.43
a(3) = 0
strFormat = "￥#,##0." & String(CLng(TxTNumber.Text), "0") & ";￥-#,##0." & String(CLng(TxTNumber.Text), "0")
Set ExcelAppX = CreateObject("Excel.Application")
Set ExcelBookX = ExcelAppX.Workbooks().Add(App.Path & "\a.xls")
ExcelAppX.Visible = True
Set ExcelSheetX = ExcelBookX.Worksheets("Sheet1")
ExcelSheetX.Cells(1, 1).Value = a(1)
ExcelSheetX.Cells(1, 2).Value = a(2)
ExcelSheetX.Cells(1, 3).Value = a(3)
ExcelSheetX.Cells(1, 1).NumberFormatLocal = strFormat
ExcelSheetX.Cells(1, 2).NumberFormatLocal = strFormat
ExcelSheetX.Cells(1, 3).NumberFormatLocal = strFormat
ExcelAppX.Application.Visible = True
ExcelSheetX.PrintPreview
ExcelAppX.DisplayAlerts = False
Set ExcelAppX = Nothing
Set ExcelBookX = Nothing
Set ExcelSheetX = Nothing
End Sub
相关文档：
虽然在VB里实现XP风格很简单，但是要使用XP风格同时又让按钮显示图片，则实现起来要麻烦一些，为此，我写了一个控件来实现前述功能，同时让读者可以从中了解XP主题界面的绘制过程。
使用办法很简单，在VB里新建一个工程，然后添加一个控件模块，粘贴以下代码，再将控件放置到窗口即 ......
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更� ......
近日分析一VB做的报表，由于对VB只是了解，谈不上熟练，不过对其水晶报表倒有点认识，之前也做过三两个小的报表 ，加之对PB中的报表了解非常熟悉，当时信心蛮大的。
先是看了DataReport，用于绘制报表格式。再来看DataEnvironment，用于定义获取的数据列。将DataReport与DataEnviro ......
'*********************************************************************
' 程序设计 河南工业大学信息网-http://www.hautbbs.com.cn
'本站以方便在校师生信息交流为宗旨，是一个集信息传递、资料查询、娱乐交友为一体的校园网络平台!
'我站为您免费提供信息平台,您� ......
