Tag: 访问

Excel / Access VBA – 无法查询上次使用的行，因为查询刷新: 我正在刷新一个查询访问和循环的表，但循环超出了刷新 – 所以我没有得到正确的最后一行。刷新后， a应该等于2746，但是它返回1478，这是刷新前的最后一行。 vPath = ThisWorkbook.Sheets(vHome).Range("LogTblFolder") vFile = ThisWorkbook.Sheets(vHome).Range("LogTblFile") Set wb = Workbooks.Open(vPath & vFile) Sheets("Main").Select ActiveWorkbook.Connections("CTA_DB_Full3").Refresh ActiveWorkbook.Connections("CTA_DB_Full3").Refresh Call WaitForRefresh(1) a = 1:Do Until Sheets("Main").Cells(a, 1).Value2 = "":a = a + 1:Loop vArray = Sheets("Main").Range(Cells(2, 1), Cells(a, 94)) wb.Close False Public Function WaitForRefresh(intSeconds As Integer) Dim dblStart As Double If intSeconds > 0 […]

在Excel中将一个字段从访问导出到特定的单元格: 我想从一个表/查询名称从访问特定的单元格。我有一个在其他单元格中有大量数据的检查表，顶部有顶部的人名。我想要一个可以点击的button，打开THAT文件，并通过VBA插入所需的名称。我知道如何用VBA来做这个带有书签的word文档，但是现在确定如何在excel中定义一个单元格的“书签”。这是我迄今为止。 Private Sub Cmdopentarget1_Click() Dim xl As Excel.Application Dim wbTarget1 As Workbook Dim qdfquerytest As QueryDef Dim rsquerytest As Recordset Set qdfquerytest = CurrentDb.QueryDefs("query1") Set qdfsecondquery = CurrentDb.QueryDefs("query2") Set rsquerytest = qdfquerytest.OpenRecordset() Set rssecondquery = qdfsecondquery.OpenRecordset() Set xl = CreateObject("Excel.application") xl.Visible = True Set wbTarget1 = xl.Workbooks.Open("C:\Users\Owner\Dropbox\Target1.xlsx") 'Set wbTarget1 = xl.Workbooks.Open("C:\Users\Dennis\Dropbox\Target1.xlsx") […]

在同一台电脑上的32位和64位Office – 与MS访问数据库驱动程序的麻烦: 在我的工作电脑32位和64位版本的办公室正在运行，因为我总结，而试图安装MS Access数据库驱动程序64位，然后MS Access数据库驱动程序32位，显然他们都给了一个错误。有趣的是，我看到只有MS Office 2010和MS Office Viewer 2003安装在我的机器上，后者通过2007兼容性软件包安装。最初的情况导致我得出这样的结论：我需要运行驱动程序是在尝试执行包含Excel源代码的MS SSIS包时收到的错误： “Microsoft.ACE.OLEDB.12.0提供程序未在本地计算机上注册”。所以，我的问题可能是两方面的：运行驱动程序正确的方式来解决我最初的问题？我怎样才能克服32位和64位都不能安装的情况，因为我的电脑上同时存在32位和64位的office版本。请记住，我不知道我应该卸载什么。 Office 2010和MS Windows Viewer 2003正在我的电脑上运行。

以美国格式访问Excel VBAdate: 我试图从Excel VBA中运行Excel中的variables查询，但Access将我的date转换为美国格式： Sub upload() Last = ActiveSheet.UsedRange.Rows.Count Dim LastOrderDate As Date Dim LastOrderDateYear As Integer Dim LastOrderDateMonth As Integer Dim LastOrderDateDay As Integer FirstOrderDate = Range("D" & Last) FirstOrderDDate = DateSerial(Year(FirstOrderDate), Month(FirstOrderDate), Day(FirstOrderDate)) 'Import Data to Benji's Ecommerce Database ssheet = Application.ActiveWorkbook.FullName Set acApp = CreateObject("Access.Application") acApp.OpenCurrentDatabase ("X:\ECommerce Database.accdb") acApp.Visible = True acApp.UserControl = True […]

用于parsing多行数据的SQL？: 我有一个不得不从excel导入数据到数据库的不幸的任务。表格看起来像这样： IssueID References 1234 DocID1<cr>DocID2<cr>DocID3 1235 DocID1 1236 DocID2 1237 DocID2<cr>DocID3 参考文献是一个多行文本字段。我想要做的是创build一个与问题表的一对多关系的文档表，而不是有这些多行参考。我有下面的表格定义：问题：IssueKey，IssueID，IssueFields Doc：DocKey，DocID，DocRev，DocOwner等 DocLink：LinkKey，DocKey，IssueKey 由于这将反复运行，Doc表已经存在，并且定义了DocID。所以，我想要做的是有一个查询或VBA代码search引用列中的每个DocID，并添加一个基于IssueID的链接，如果还不存在。简单，对吗？杰夫澄清： 1）我有第三列“Val1”，表明还有其他栏目，但似乎混淆了这个问题。实际上在源表中有很多（很多，被忽略的）列，但是我只关心上面的两个。 2）我不必parsing分隔符或任何太偏执：引用包含一个或多个唯一定义的文档参考号码（存储为文本）。所以，一个LIKEfilter会逐个打开IssueID的列表。 3）这是一个可接受的输出的例子： IssueID References 1234 DocID1 1234 DocID2 1234 DocID3 1235 DocID1 1236 DocID2 1237 DocID2 1237 DocID3 理想的解决scheme将采取原来的Excel表（顶部）和这两个表： IssueKey IssueID 1 1234 2 1235 3 1236 4 1237 […]

使用格式导出Access查询到Excel: 所以我有访问查询，我想发回到Excel。虽然使用导出向导是好的，我想增加更多的自动化导出过程。到目前为止，我正在处理代码，所以在导出期间，最终的Excel表格将会有一些格式化。至于基本的格式我很好，我发现很多资源来帮助我。我的问题是，我想设置条件格式，以便如果一个特定的列（G）有一个值，那么整个行是突出显示。我有点迷路，如何通过Access中的VBA代码设置Excel的条件格式这是我的 Dim appExcel As Variant Dim MyStr As String Dim rng As Excel.Range ' Creates Excel object and Adds a Workbook to it Set appExcel = CreateObject("Excel.application") appExcel.Visible = False appExcel.Workbooks.Add Set wksNew = appExcel.Worksheets("Sheet1") appExcel.Visible = True ' The first thing I do to the worksheet is to […]

我需要从Excel仪表板转换后端数据访问: 我有一个仪表板/工具，它使用一些后端数据来填充一些图表。这些图表在VBA（下拉菜单，用户表单等）的帮助下dynamic变化。我的问题是，我需要将后端数据转移到Excel数据库，而不会影响仪表板/工具的function。我在VBA方面的经验有限，绝对没有MS Access的经验。如果我能得到关于如何前进的详细说明，将不胜感激。谢谢

如何创build一个Excel电子表格，该电子表格通过仅对正确用户启用的button提供工作簿链接？: 如何创build一个Excel电子表格，该电子表格使用仅对正确用户启用的button提供工作簿链接？我想为多个用户创build一个索引页面/电子表格/工作簿，以便访问大量的工作簿。我想灰色（禁用）或删除button到用户不被允许访问的工作簿。我不知道如何去做，我读了IRM。虽然它不显示如何灰化（禁用）某些用户无法访问的button。我非常感谢大家的意见。谢谢大家。

后期绑定用户窗体函数: 我有2个用户表单： Userform1 Userform2 它们都有UpdateFields函数，每个函数UpdateFields不同的实现。我有第三个函数作为input用户窗体，并尝试调用UpdateField函数： Public Sub ThirdFunction(Byref objForm as Form) 'trying to do this objForm.UpdateFields End Sub 有谁知道这可以做到吗？

在Access中链接Excel表格会导致只读错误: 我有几个映射和链接到Access 2010数据库的Excel 2010文件。我需要添加另一个文件，以便三个映射而不是两个。我链接从外部数据库下的导入和链接选项卡的Excel文件。这似乎是好的。但是，当我运行的代码重新映射的Excel文件，它给了我一个运行时错误3027: Database or Object is read only. 没有任何文件或数据库是只读的。这是重新映射文件从新位置（例如从X驱动器到邮件W驱动器）的代码，这也将添加新的Excel文件。应该添加一些东西，让我添加新的文件？ Private Sub cmdAcceptPath_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strPath As String Dim strFileName As String Dim strSourceDB As String Dim strTableName As String Dim sList As String Dim gMsgBoxTitle As String […]