当前搜索：

vb数据保存为xls文件

vb中如何把字符串型的数组里的字符串保存到excel的单元格里答：通过VB访问EXCEL表格具体的使用实例：Private Sub Command1_Click()Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet Dim FileName, SheetName As String FileName = "e:\data.xls" '要访问的工作簿路径和名称 SheetName = "sheet1" '指定的要访问的...

VB写了新建保存excel文件,但是为啥excel数据没写进去答：1, 3)= Data4(i).Cells(i + 1, 4)= Data5(i).Cells(i + 1, 5)= Data6(i)Next i End With xlsBook.SaveAs (fname) '保存文件 xlsApp.Quit Set xlsApp = Nothing Else t2 = MsgBox("Please enter a filename", vbInformation + vbYesNoCancel, "OK")End If End Function ...

VB中点击保存后能不能把数据自动保存到设定好的EXCEL表格中答：设置防爆=的CreateObject（“Excel.Application的”）设置ExBook = Ex.Workbooks（）。添加设置ExSheet = ExBook.Worksheets（“工作表Sheet1”）/ /打开对于i = 0到10 ExSheet.cells（我+1,1）。值= A（I）下一个I / /赋值 ActiveWorkbook.SaveAs（“D：\ my.xls”）/ /保存 Ex.Quit 设...

vb 数据导出到exce两个工作簿中l答：myexcel.Quit myexcel.Workbooks.Close msg = MsgBox("报表导出成功,文件路径为：" & CommonDialog1.FileName & "!要现在查看文件吗?", 33, "导出成功")If msg = 1 Then lr = ShellExecute(Me.hwnd, "open", CommonDialog1.FileName, "", "", vbNormalFocus) '打开文件 If (lr < 0)...

vb6.0 操作完Excel表格后,怎么保存啊?答：objExl.ActiveWorkbook.SaveAs "C:\Demo1.xls" 另存 objExl.ActiveWorkbook.Close fasle 关闭

VB的VSFlexGrid表格控件保存为Excel的格式问题答：我曾经是认为存为 csv 文件 CSV格式是分隔的数据格式，有字段/列分隔的逗号字符和记录/行分隔换行符。字段包含特殊字符(逗号，换行符，或双引号)，必须以双引号括住。行内包含一个项目是空字符串，可以以双引号括住。字段的值包含双引号时，要双写这个双引号（就像把一个双引号当做转义符一样）。CSV...

VB将打开并修改的Excel保存不提示对话框可以吗?答：可以，你试一下：Dim exlApp As Excel.Application Dim exlBook As Excel.Workbook Set exlApp = New Excel.Application exlApp.Visible = True '显示Excel窗口 Set exlBook = exlApp.Workbooks.Open(App.Path + "\test.xls") 'Excel文件路径及文件名 '向Excel表中写入数据，Sheets(1)为第1个...

VB如何修改excel保存路径答：如果VB中未设置保存路径，它会保存在EXCEL工作目录下。VB保存时可指定固定的路径也可用通用对话框让用户临时选择保存路径对程序稍作修改即可

为什么VB中产生的数据无法保存到Excel中答：Private Sub Command1_Click()Open App.Path & "\data.txt" For Append As #1 Print #1, text1.text Close #1 End Sub 单击这个按钮一次，就保存一次保存到excel中只要把data.txt改成data.xls就可以了另外,团IDC网上有许多产品团购,便宜有口碑 ...

如何在VB中的指定目录下生成EXCEL,我用了磁盘驱动器,文件目录驱动,自己...答：你这个操作流程就是，1.vb创建一个excel。2.保存excel到当前文件下。当然首先得先引用excel。工程、引用、excel11.0 Dim xlapp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSHEET As Excel.Worksheet Set xlapp = CreateObject("excel.application") '这里是小写，如果出错的话，下面...

<涓婁竴椤 1 2 3 4 5 6 7 8 9 10 涓嬩竴椤

其他人还搜