Tag: ms access

如何将Excel数据移动到Access使用VBA和后期绑定（没有ADO，没有DAO） – DoCmd.TransferSpreadsheet运行时错误424？

我正在尝试创build一个macros，它将定期将Excel中的25,000到35,000行移动到Access数据库。 据我所知，如果我在一个使用macros的人使用不同版本的Excel和Access的环境中工作（我碰巧使用的是2007），我最好使用后期绑定，因为它避免了不同引用的问题和版本等。 – 一旦工作，它就可以工作（尽pipe速度较慢）。 我试图让下面的代码在Excel VBA中工作： Sub TransferToDB() Dim acApp As Object ssheet = "C:\Documents and Settings\yk\Desktop\Open Invoice Summary 322 – 2012-07-17.xlsx" ssrange = "AllData!A1:M28323" Set acApp = CreateObject("Access.Application") acApp.OpenCurrentDatabase ("C:\Documents and Settings\yk\Desktop\Open Invoice Summary.accdb") acApp.Visible = True acApp.UserControl = True DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, OpenInvoices, ssheet, True, ssrange acApp.CloseCurrentDatabase acApp.Quit Set acApp = Nothing End […]

导入Excel电子表格时MS Access 2013types转换失败

我一直在尝试将Excel电子表格导入MS Access 2013（通过接口）作为表格，并为Integertypes的字段“SegmentID”生成“types转换失败”错误。 在Excel电子表格中检查失败的行号时，它们确实是整数。 即使重新input并将整列设置为数字（并删除小数点）仍会产生相同的错误。 我需要为许多电子表格执行此导入操作，并且几乎每个我都尝试从电子表格中随机select几个到几千个同样的错误。 电子表格是.xlsx格式。 任何想法将不胜感激。 我曾经想过用这样的手段来做这个事情： DoCmd.RunSQL "CREATE TABLE TableName ([Date] DATETIME, [Name] TEXT, ETC…" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "TableName", "C:\ExcelData.xlxs"

舍入到最接近的N号码

我有一组十进制数，我需要将它们四舍五入到最接近7的数字。 例如： 0.45 –> 0.47 4.70 –> 4.67 6.49 –> 6.47 8.32 –> 8.37 我可以使用Excel或Access（基本上是VBS）。 我只能抓住小数点后两位，将其转换为整数（* 100），然后应用舍入规则，然后预先等待原始值的整数值。 例如： 0.45 –> 45 –> 47 –> 0.47 4.70 –> 70 –> 67 –> 4.67 6.49 –> 49 –> 47 –> 6.47 8.32 –> 32 –> 37 –> 8.37 我已经尝试了舍入公式： Let N represent the nearest number to round […]

lockingAccess表以防止在某些时候写入

我正在做一个每周预测，其中人们将在Excel中有一个模板来input数据。 一旦他们input了所有的数据，他们就可以在Excel中点击一个button，将数据放入Access数据库中的表格中。 在星期五上午10:30，我想把表格锁住，这样人们就有很难把数据存入数据库。 在那个时候，那个星期的预测是最终的，然后我希望在星期五的下午5点之后能够再次写入数据库（不再被locking）。 这可能吗？ 即使可能有一个单独的button，我可以点击自己在上午10:30，将locking表，然后我可以再次点击它在5PM，使其解锁表（或一个单独的button）。 另外我怎样才能够使一个消息框，只有当表被locking，以告诉用户截止date已经发生，并没有更多的写入表中的消息框？ 我用于从Excel模板中将数据注入到Access数据库表中的代码是： Sub ADOFromExcelToAccess() If MsgBox("This Button Will Submit all Data in the Table to the Right & Clear the Table! Are you sure?", vbYesNo) = vbNo Then Exit Sub ' exports data from the active worksheet to a table in an Access database ' this procedure must be […]

VBA Office 2007创build2003年Excel表

由于几天我在一个证书过程中使用MS Access 2007。 在我的VBA代码中，我使用： CreateObject（“Excel.Sheet”） 在Access 2003中，以2000 – 2003年的格式创build了一个文档。 现在在Access 2007 VBA执行新的格式。 这会导致一些额外的编码问题。 任何build议如何通过VBA执行旧格式（2000-2003）？ 亲切的问候

访问受密码保护的MS Access文件

我已经通过文件>信息下的encryption选项encryption了Access文件。 在Excel中，当我尝试从Access文件中检索一个表时，它popup一个密码框，但它不接受我的密码。 我可以从Access文件链接到Access文件没有问题。 有谁知道问题是什么？

MS Access无法find项目或库错误

我正在为我使用的访问数据库工作。 我很熟悉编写VBA代码来执行函数，但是，我根本就不能精确地debugging某些错误。 数据库中有一个表单允许我清理和处理可以从我的计算机中select的文件中的数据。 它使用一个文件夹作为主要的根目录来查看我提供表单的位置在文件夹中的文件的名称。 还有一个连接的button来执行数据清理和操作。 现在背景已经不存在了，但是我似乎无法通过这个错误。 它也看起来像是我解决了这个错误，它雪球变成了别的东西。 本质上，错误是“无法find项目或库”。 进入我的资源后，我注意到有一个Microsoft Excel 15.0对象库缺less。 有没有人知道这个错误和访问之间的关系，以及如何解决这个问题？

Excel VBA – 在sqlstring中使用撇号

我正在使用Excel将数据input到Access数据库中，并且我的一些数据string中包含一个用于测量的撇号。 这是我的SQLinputstring stSQL = "INSERT INTO Products (ProductName, ProductDescription, ProductUnit, SupplierID) " & _ "Values ('" & cboxItemNum & "', '" & txtDescription & "', '" & txtUnit & "', " & linkPID & ")" cn.Execute (stSQL) 我的string如下： Aliplast 4E白色。 30“X 80'X 1/4”软。 在这个string中“80后导致错误，我不知道如何解决这个问题。 我不能告诉用户不要input撇号。 我怎样才能解决这个问题？ 谢谢

导出到Excel时如何避免“存储为文本的数字”

当我从Excel导出表格到Excel时，所有的数字都显示为文本，并在单元格上显示绿色箭头。 有没有一种方法来自动修复这个错误，或者另一种导出方式来解决这个错误？ 作为参考，这是我如何导出： DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, pages(i), outputFileName, True

如何从VBA中的韩文string中提取字符

需要从MS-Excel和MS-Access中的韩语单词中提取初始字符。 当我使用左（“글글”，1）它将返回第一个音节，即，我需要的是初始字符，即ㅎ。 有这样的function吗？ 或者至less是一个成语？ 如果你知道如何从string中获得Unicode值，我可以从那里得到它，但我相信我会重新发明轮子。 （再次）