(VB中使用EXCEL输出.docVIP

标题 ? VB中使用EXCEL输出???? 选择自 mi6236 的 Blog 关键字 ? 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) Then 此目录下如有同名文件给出提示,并作相应处理??????? If MsgBox(文件已存在，是否覆盖！, vbYesNo + vbQuestion, 另存为工程造价文件) = vbNo Then??????????? Exit Sub??????? Else??????????? Kill (Text1.Text) 删除文件??????? End If??? End If ??? ************打开工作表***************??? Set xls = New excel.Application??? xls.Visible = True??? Set xlbook = xls.Workbooks.Add??? *********************************??? F