Ⅰ 6.2.1.1 新建Excel VBA数据库
新建一个数据库有两种方法:一种是创建一个空数据库，即建立一个没有表、查询、窗体和报表等内容的数据库:另一种方法是使用Access中提供的数据库模板创建数据库，即通过对向导所提出的选项和不同选择来设计窗体、查询和报表等，从而建立一个完整的数据库。下面将使用第一种方法建立数据库。(1)在人c~窗口中单击【文件】菜单.在下拉菜单中选择【新建】项，将得到如图6.1所示的【新建】对话框。(2)单击【空数据库】图标，即会显示“文件新建数据库”对话框，如图6.2所示。图6.1【折建】对话框(3)在【文件名】文本框中输入要保存数据库的文件夹及新建的数据库名，如"C: est.mdb"，然后单击【创建】按钮，即可创建一个名为“test"的数据库，如图6.3所示。
Ⅱ 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). 这个是将当前代码所在工作簿的左侧第一张表拷贝生成新的工作簿文件。新文件包含一张表格。具体对应的文件跟表格可以根据需求调整
Ⅲ VBA新建一个excel文件，并且这个excel里面含有5个sheet，如何操作
OptionExplicitSubtest1()DimwbAsWorkbookSetwb=Workbooks.AddWithwb.Worksheets.AddAfter:=wb.Worksheets(.Count),Count:=5-.CountEndWith'以下是可选代码'将新建的工作簿激活为当前窗口wb.Activate'将工作簿保存到D盘根目录，名字为newWorkbook.xlsx,格式为.xlsx格式（excel2007及以上版本默认格式）wb.SaveAs"D:ewWorkbook.xlsx",56EndSubSubtest2()'如果是从外部程序创建，如在word中执行操作，则需要先创建个excel对象。DimappExcelAsExcel.ApplicationDimwbAsWorkbookSetappExcel=CreateObject("Excel.Application")Setwb=appExcel.Workbooks.AddWithwb.Worksheets.AddAfter:=wb.Worksheets(.Count),Count:=5-.CountEndWithEndSub
Ⅳ vba 创建一个新的Excel
Workbooks.AddSheets("Sheet1").SelectSheets("Sheet1").Name=Format(Now(),"YYMMDD")&"原始数据"Sheets("Sheet2").SelectSheets("Sheet2").Name=Format(Now(),"YYMMDD")&"当前数据"Sheets("Sheet3").SelectSheets("Sheet3").Name=Format(Now(),"YYMMDD")&"将来数据"Range("C13").SelectActiveWorkbook.SaveAsFilename:="C:\Users\rock.wang\Desktop\"&Format(Now(),"YYMMDD")&"数据.xlsx",FileFormat:=_xlOpenXMLWorkbook,CreateBackup:=False你把路径要改成你想要的路径，那是我的电脑桌面路径
Ⅳ EXCEL如何用VBA实现创建文件，并将内如入职到新文件里。
Subt()DimwbAsWorkbookThisWorkbook.Worksheets("Sheet2").CopySetwb=ActiveWorkbookWithwbwb.SaveAs"F:脚本新文件"&Format(Now,"yyyymmddss")&".xlsx",xlOpenXMLWorkbookwb.CloseTrueEndWithEndSub
Ⅵ 如何用VBA新建一个新的excel表并将其保存在指定目录下
Sub新建()Workbooks.AddActiveWorkbook.SaveAs"C:est.xls",TrueMsgBox"新建Excel工作薄完成"EndSub
Ⅶ excel vba新建很多xlsx文件问题
Subaaa()Application.ScreenUpdating=FalseFori=1To10Setwb=Workbooks.Add'。。。N=N+1wb.SaveAs"D:111"&N&".XLSX"wb.CloseNextEndSub
路径自己修改。
如果创建的文件都是一样的，那用复制文件的方法会更快。
Ⅷ 如何使用excelVBA在指定路径下批量新建指定文件夹
Sub GetFolder() Dim FolderName, FileName, MyFolder, MyFile As String FolderName = "abc" FileName = "abc.xls" MyFolder = Dir("D:\" & FolderName, 16) MyFile = Dir("D:\" & FolderName & "\" & FileName, 16) If MyFolder <> "" Then MsgBox "The folder is OK" Else MkDir "D:\" & FolderName End If If MyFile <> "" Then MsgBox "The File is OK" Else Open "D:\" & FolderName & "\" & FileName For Output As #1 Close #1 End IfEnd Sub
Ⅸ vba在当前目录下建立新的文件夹
试试下面的代码：在当前目录下依次创建指定文件夹
Subtest()Dimarr,arrTempDimstrPathAsStringDimstrTempDimiAsLong,jAsLongOnErrorResumeNextstrPath=ThisWorkbook.Path&Application.PathSeparatorarr=Sheet1.Range("a1").CurrentRegionFori=LBound(arr)+1ToUBound(arr)strTemp=strPatharrTemp=Split(arr(i,1),"")Forj=LBound(arrTemp)ToUBound(arrTemp)strTemp=strTemp&arrTemp(j)&Application.PathSeparatorMkDirstrTempNextNextEndSub
Ⅹ 用VBA创建一个新的excel文件在当前目录并复制当前表中指定行到新的excel文件中的指定位置！
关键是你没有说复制哪些行到哪些位置，下面的代码复制A1到B1，请自行适当修改：
sub宏1()dimstasworksheet,wbasworkbooksetst=activesheet'当前表setwb=workbooks.addst.range("a1").wb.sheets(1).range("b1")'复制内容wb.saveasthisworkbook.path&""&"123.xlsx"endsub
未经允许不得转载：山九号 » excelvba建立新文件|vba在当前目录下建立新的文件夹
