⑴ vba生成excel文件
使用vba生成一个excel 文件，可以使用以下方法：1 Workbooks.Add 方法 1.1 语法新建一个工作表。新工作表将成为活动工作表。语法表达式.Add(Template)表达式 一个代表 Workbooks 对象的变量。参数名称 必选/可选 数据类型 说明 Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略此参数，Microsoft Excel 将创建包含一定数目空白工作表的新工作簿（该数目由 SheetsInNewWorkbook 属性设置）。 返回值一个代表新工作簿的 Workbook 对象。说明如果 Template 参数指定的是文件，则该文件名可包含路径。 1.2 workbooks.add 会自动打开一个“工作簿1”这类的wb文件，并activate之workbooks.add 会自动生成一个 " 工作簿N" 的WB文件，且activeworkbooks.add 在add后，会打开一个“工作簿1”这类的wb文件并且最后add的 wb文件 成为新的 activeworkbookSub test98() Workbooks.AddEnd Sub 1.3 workbooks.add(template)template Variant 类型，可选1.3.1 template如果指定为 EXCEL内置的常量可为以下 XlWBATemplate 常量之一xlWBATChartxlWBATExcel4IntlMacroSheetxlWBATExcel4MacroSheetxlWBATWorksheetSub test91() Workbooks.Add (xlWBATChart) Workbooks.Add (xlWBATWorksheet) Workbooks.Add (xlWBATExcel4MacroSheet) Workbooks.Add (xlWBATExcel4IntlMacroSheet)End Sub1.3.2 若 template指定为文本，文本是一个文件路径，文件必须先存在（暂时没发现有什么用处）template 如果本参数为指定一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板如果template指定为文件，文件必须先存在，否则报错。那么template为一个路径如果是完整的绝对路径，则需要带path如果只是相对路径，那么 excel 2010版本会去这儿找这个文件：D\用户目录/我的文档下面 ,默认目录？好像指定过后会把新的路径当默认路径Sub test96() Workbooks.Add (ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx")End Sub Sub test97() Workbooks.Add (ActiveSheet.Name & ".xlsx")End Sub2、thisworkbook.sheets(1). 这个是将当前代码所在工作簿的左侧第一张表拷贝生成新的工作簿文件。新文件包含一张表格。具体对应的文件跟表格可以根据需求调整
⑵ 如何在VB中创建excel，并将其编辑后保存
在VB中启动一个新的StandardEXE工程，在“工程”菜单的“引用”选项下引用ExcelObjectLibrary然后在Form中添加一个命令按钮cmdExcel最后在窗体中输入如下代码：DimzsbexcelAsExcel.ApplicationPrivateSubcmdExcel_Click()Setzsbexcel=NewExcel.Applicationzsbexcel.Visible=Truezsbexcel.SheetsInNewWorkbook=1Setzsbworkbook=zsbexcel.Workbooks.AddWithzsbexcel.ActiveSheet.Range("A2:C9").Borders'边框设置.LineStyle=xlBorderLineStyleContinuous.Weight=xlThin.ColorIndex=1EndWithWithzsbexcel.ActiveSheet.Range("A3:C9").Font'字体设置.Size=14.Bold=True.Italic=True.ColorIndex=3EndWithzsbexcel.ActiveSheet.Rows.HorizontalAlignment=xlVAlignCenter'水平居中zsbexcel.ActiveSheet.Rows.VerticalAlignment=xlVAlignCenter'垂直居中Withzsbexcel.ActiveSheet.Cells(1,2).Value="100".Cells(2,2).Value="200".Cells(3,2).Value="=SUM(B1:B2)".Cells(1,3).Value="中国人民解放军".Range("A3:A9")="50"EndWithzsbexcel.ActiveSheet.PageSetup.Orientation=xlPortrait'xlLandscapezsbexcel.ActiveSheet.PageSetup.PaperSize=xlPaperA4zsbexcel.ActiveSheet.PrintOutzsbexcel.DisplayAlerts=Falsezsbexcel.Quitzsbexcel.DisplayAlerts=TrueSetzsbexcel=Nothing
⑶ 用vb导出数据到excel文件时，如何生成新的excel文件
抄一段我写的代码给你，除了能新建一个以外，第二个好处是当记录条数超过65535时，它可以自动新增工作表以将全部数据弄进去。你可以根据自己的情况改改。Public Conn As New ADODB.ConnectionPublic Rs As New ADODB.RecordsetPublic xlApp As New Excel.ApplicationPublic xlWb As New Excel.WorkbookPublic xlWs As New Excel.WorksheetPrivate Sub mnuQueryExcel_Click() On Error GoTo ErrHandle Dim wsSeq As Long, i As Long, Length As Long xlApp.Visible = True xlApp.ScreenUpdating = False DataGrid.Visible = False Length = Rs.Fields.Count – 1 Call Rs.MoveFirst Set xlWb = xlApp.Workbooks.Add wsSeq = 0 Do While Not Rs.EOF wsSeq = wsSeq + 1 Set xlWs = xlWb.Worksheets.Add xlWs.Name = "查询结果" & CStr(wsSeq) For i = 0 To Length xlWs.Cells(1, i + 1).Value = "'" & Rs.Fields(i).Name Next i Call xlWs.Cells(2, 1).CopyFromRecordset(Rs) Loop Call Rs.MoveFirst DataGrid.Visible = True xlApp.ScreenUpdating = True Call MsgBox("写入Excel完毕。", vbInformation) Exit SubErrHandle: Call MsgBox("错误代码：" & Hex(Err.Number) & vbCrLf & "错误描述：" & Err.Description, vbCritical)End Sub
⑷ VB 如何生成EXCEL表格谢谢了
材料/工具：电脑、VB 6.0软件
1、首先，我们需要点击文件菜单栏按钮。
⑸ VB怎么样新建EXCEL工作薄
Set xlsApp = CreateObject("Excel.Application")Set xlBook = xlsApp.Workbooks.Add Set xlsheet = xlBook.Worksheets.addxlSheet.Cells(1, 1) = 1111 '给单元格（row,col）赋值a = xlSheet.Cells(1, 1)xlBook.SaveAs "E:\工作薄.xls"xlsapp.quit
⑹ 用VB创建EXCEL的问题
双击“我的电脑”==》工具==》文件夹选项==》选择“不显示隐藏的文件和文件夹”==》点击“应用”==》点击确定任何一个Excel在打开时都会创建该文件的临时文件，这个文件是被隐藏的，当关闭文件时自动隐藏文件会自动消失。
⑺ VB 创建EXCEL表格
判断文件用dir()函数就可以了，要建excel表需要在VB中必须引用Microsoft Excel 才能用。
⑻ 怎样使用vb创建excel文件
测试成功，原码：Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.rangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Addxlapp.Visible = Truexlbook.sheets(1).range("a1") = "新建成功"xlbook.SaveAs App.Path & "/测试.xls"xlbook.CloseEnd Sub
⑼ vb如何新建excel表
Excel中的VB语言叫做VBA，在VBE中使用代码新建即可
Excel版本参考：2010
演示：新建一个表名为test的工作表
1、ALT+F11，进入VBE窗口
2、右击工作表标签-插入-模块
3、输入代码：
Sub test()
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "test"
End Sub
4、按下F5执行，查看工作表，新建的test表 已新建好
⑽ VB创建新EXCLE表格
dim exc as new excel.applicationexc.workbooks.addexc.sheet("sheet1").selectexc.sheet("sheet1").name=text1.textexc.ActiveWorkbook.SaveAs Filename:=路径 & text1.text & ".xls",FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=Falseexc.quit
未经允许不得转载：山九号 » vb新建excel文件|怎样使用vb创建excel文件
