- 博客(2)
- 收藏
- 关注
原创 VB中使用EXCEL输出
Private Sub cmdSwatch_Click()Dim xls As excel.ApplicationDim xlbook As excel.WorkbookOn Error GoTo exlErrorDim i As Integer If Dir(Text1.Text) If MsgBox("文件已存在,是否覆盖!", vbYesNo + vbQuestion
2004-06-03 11:31:00
1709
2
原创 vsprint打印实例
Option ExplicitPublic Function formatData2(ByVal data1 As Double, ByVal data2 As Double) As String Dim dt1, dt2 As Double dt1 = data1 dt2 = data2 If dt1 = 0 Or dt1 = 0# Or dt2 = 0 Or dt2
2004-06-02 10:04:00
1347
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人