- 博客(3)
- 资源 (4)
- 收藏
- 关注
转载 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
2005-08-04 09:37:00
1179
1
转载 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 =
2005-08-04 09:05:00
722
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人