Tag: ms access 2013

将Excel文件的整个文件夹导入到Access 2013中

我正在尝试将多个Excel文件导入到特定的Access 2013表中。 我尝试使用从另一个SO问题中find的代码: Do While Len(strFile) > 0 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames Loop 但是这会为每个文件创build新的表,并且我需要将所有101个文件放在一个表中。 我试图testing它的代码在DoCmd.TransferSpreadsheet上失败,我似乎无法得到那部分工作。

从Access VBA格式化Excel

我需要在工作簿中的单元格1之上添加一个新行。 我input了我认为正确的下面的语法,但是我得到一个错误: 对象不支持此属性或方法 当语法命中块的第二行 – .Rows("1:1").Select 为了使这个语法像预期的那样执行,我需要改变什么? Function AdddFormatting() Dim ExportRecordSet As DAO.Recordset Dim excelWS As Object, excelWS2 As Object Dim xl As Object Dim wb As Object Dim TemplateWB As String Set xl = CreateObject("Excel.Application") TemplateWB = "C:\Test\Testwb.xlsx" Set wb = xl.Workbooks.Add Set excelWS = wb.Worksheets(1) excelWS.Name = "AddedFromCode" Set excelWS2 = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count)) excelWS2.Name […]

2路同步Excel 2013电子表格和Sharepoint 2013列表

我正在尝试与Excel电子表格和我的SharePoint 2013在线公共站点上的列表进行双向同步。 研究人员告诉我,没有使用第三方解决scheme,最好的方法就是使用Access 2013,并首先将Excel电子表格同步到访问数据库(我已经这样做了)。 接下来是将Access数据库与一个共享点列表同步。 当我尝试这样做时,它将表格作为列表发布,但如果对Excel电子表格进行了任何更改,则不会在SharePoint列表中进行更新。 有没有具体的方法需要完成? 我无法find任何好的文档,特别是对于2013版本。 谢谢你的帮助!

从Excel导入超过65.535行到MS Access

我正在运行下面的代码从excel中导入整个工作表来访问,工作表有77k行,但Access只导入65.535,如何解决它的任何clur? Excel和Access都是2013版本。 Function importa() Dim rs As DAO.Recordset Dim inicio As String Dim fim As String DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _ "NOMEBASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Menu!BJ25:BM26" Set db = CurrentDb() Set rs = db.OpenRecordset("NOMEBASE") inicio = rs.Fields(2).Value fim = rs.Fields(3).Value DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _ "BASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Mailing_Recebido!A:AX" rs.Close End Function

在TextToColumns中正确设置FieldInfo时,不应该将文本转换为MS Access的文本?

您好,我遍历Excel工作簿中的所有列和TextToColumns'ing它们,以便MS Access将它们作为我想要的数据types; 然而,它似乎并没有为一个应该是简短的文本领域工作。 有问题的领域有字段名称“testing”,然后10个空白单元格,然后在第11 – 13行的文本“testing”,然后再次空白等,即大量的空白单元格和一些简短的文本string。 With w.sheet("x") 'I go through some logic to set variables c to a column number and 'iFormatType to either 2 for text, which is what I use for the "test" field, or 1 for general .Columns(c).TextToColumns Destination:=.Cells(1, r.Column), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, […]

如何将大型数据表(大约1,500列)从Excel转换为Access

道歉,但这是我的第一个问题,我根本无法看到上传Excel文件的链接。 我也搜查了帮助文章,找不到说明。 任何人都可以build议吗? 我有一个Excel数据表,大约有1,500列,大约相同数量的行,我想将数据传输到Access以便于操作。 显然,我不能直接从Access内引用表,因为它超过了Access的列限制。 不幸的是,源数据需要留在Excel中,因为它是直接写入Excel的其他一些文件/模型的输出。 一个复杂的因素是logging的数量。 如果我将数据转换成行格式(从行和列格式)上传到访问将有大约225万行,即单个Excel工作表太大。 因此,我必须将数据分成多个Excel工作表,然后逐个上传到访问中。 显然这是一个艰苦的过程。 具体来说,我的数据如下所示: D1 D1 D1 D2 D2 D2 D3 D3 D3 Q1 Q2 Q3 Q1 Q2 Q3 Q1 Q2 Q3 S1 Q1 0.76 0.40 0.44 0.60 0.68 0.35 0.80 0.75 0.37 S1 Q2 0.33 0.92 0.01 0.68 0.86 0.43 0.27 0.54 0.20 S1 Q3 0.40 0.10 […]

访问VBA将表另存为电子表格

我正在使用此语法将表导出到.xlsx文件。 我有的问题是,任何时候我尝试打开文件,这个错误是抛出: Excel无法打开文件,因为文件格式或文件扩展名无效。 validation该文件是否已损坏,文件扩展名是否与该文件的格式匹配。 我正在使用Excel 2013和Access 2013 – 这是我使用的导出线 DoCmd.TransferSpreadsheet transfertype:=acExport, spreadsheettype:=acSpreadsheetTypeExcel12, TableName:=strTable, filename:=strWorksheetPath, hasfieldnames:=True 什么是出口访问表excel的方式,所以你可以打开文件错误免费?

在创build新表格和格式化时将Access Query导出到Excel

我在Access中有一个数据库,简而言之,是一大串公司,他们销售的产品,以及每个产品的财政销售额。 我想写一些VBA,将: 1.)允许我将查询导出到Excel。 2.)每次运行查询时创build一个新的表格。)格式化呈现的数据。 我也似乎无法弄清楚如何将查询中的数据粘贴到新工作表中。 如果任何一种灵魂都能帮助我,那将会非常感激。 我知道这一切都是可能的,因为我已经做了很多的研究。 但是我已经没时间了,现在只需要弄清楚我错了什么地方。 到目前为止,这是至关重要的:( 访问VBA如何添加新的工作表到excel? ),( 使用VBA从Access格式化输出的Excel文件? ),( https://www.youtube.com/watch?v= 9yDmhzv7nns )。 Sub Mysub() Dim objexcel As Excel.Application Dim wbexcel As Excel.Workbook Dim wbExists As Boolean Dim qdfQUERY2014sales As QueryDef Dim rsQUERY2014sales As Recordset Set qdfQUERY2014sales = CurrentDb.QueryDefs("QUERY2014sales") Set rsQUERY2014sales = qdfQUERY2014sales.OpenRecordset() Set objexcel = CreateObject("excel.Application") On Error GoTo Openwb wbExists […]

MS-Access 2013无法删除.laccdblocking文件

这是一个远射,但是有谁知道如何删除由访问2013文件types“.laccdb”创build的locking文件。 我有一个Excel表格,通过电源查询连接到访问数据库。 访问数据库位于共享驱动器上。 但是,即使此文件closures,访问数据库的locking文件也不会被删除。 当试图删除locking文件,它只是说,无法closures另一个程序正在使用。 我已经closures了机器,删除了所有临时文件,没有任何内容正在运行,还在pipe理工具中的计算机pipe理中进行了检查。 并检查是否有打开的文件。 我知道应该拆分数据库来阻止这种情况的发生。 然而,这不是我的数据库,用户拒绝拆分。 任何帮助将不胜感激。

从MS Access启动Excel和参考UserForm对象

我有一个MS Access数据库应用程序在这里,我想启动一个Excel文件使用VBA和使用默认值填充此文件中的UserForm对象上的字段。 我很努力地find我可以用来从Excel应用程序之外引用UserForm对象的语法。 希望这是有道理的。 这是我迄今为止的简单代码。 Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Set xlApp = CreateObject("Excel.Application") Set xlWB as xlApp.Workbooks.Open("[My file path goes here]") xlApp.Visible = True 我在这一点上试图做的是访问这个名为UserForm1的文件中包含名为TextBox1的文本框的UserForm对象,并设置它的值。 我可以使用Excel中的VBA来做到这一点UserForm1.TextBox1 = "Test" ,这个工程。 如果可以的话,试图从MS Access外部执行此操作。 我在这里错过了很明显的东西吗