Tag: access vba

在Access和Excel之间复制/粘贴: 在Access中的一个表单中，我想把一些文本放在一个string中，然后我的用户可以将这个string复制到Excel中的不同列中。例如，在我的表单中有5个字母：ABCDE，当用户点击一个button“复制”，然后在Excel中进行粘贴，例如A1。然后把这5个字母粘贴成一行5列： A1 B1 C1 D1 E1 ABCDE 我正在search的是，是否有一个符号只是表示列的结束。

Access中的VBA调用函数: 是否有可能使用VBA访问在Excel中执行macros，使用“调用函数”？我正尝试通过在Access中使用VBA函数来格式化数据。

如何使用VBA在Excel中添加新工作表？: 我是VBA编码的新手。我想用不同的数据填充Excel工作表。要求是将数据放入同一个Excel的单独表单中。我需要使用下面相同types的代码来维护整个代码的完整性。 outfile = "c:\" & Format(Date, "yyyymmdd") & "activedirectorydata.xls" DoCmd.OutputTo acOutputQuery, "**MoActiveDirectoryData**", acFormatXLS, outfile, False 我能够从一个查看/查询MoActiveDirectoryData到一张表。我应该如何去从另一个视图/查询获取数据到同一个Excel的另一张表？

VBA Excel – ACCESS中的更新logging: 我有一个问题。我想使用EXCEL中的VBA更新Access数据库中的现有logging。我的代码： sqlik = "UPDATE query which works in access" Set ZAP_QUERY2 = baza.CreateQueryDef("", sqlik) With ZAP_QUERY2 ![abc] = Edit_Form.abc.Text ![bcd] = Edit_Form.bcd.Text ![cde] = Edit_Form.cde.Text End With 当我使用sqlik =“在访问中起作用的SELECT查询”时，它没有做任何改变。但是用sqlik =“在访问中起作用的UPDATE查询”，它说“在这个集合中找不到任何对象” 有任何想法吗？谢谢你的帮助

允许访问用户selectExcel工作表进行链接: 所以我在Access中使用VBA创buildExcel和Access之间的链接表。足够简单，一些在线资源引导我，我决定使用TransferSpreadsheet命令。所以我跑了一些代码来testing，如果我有正确的语法，并得到这个 DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, _ "Link Name", "File Path", True, "Sheet Name!" 所以这个工作完美，但我想自动化，所以不明白如何编码的人可以使用该function。所以对于文件path，我设置了一个文件对话框，用户可以selectexcel文件。再次工作很好。所以现在到了这一步，我想创build一个对话框让用户selectexcel工作表链接以及。所以基本上用户将首先selectexcel文件，然后从下拉框中select他们要链接的工作表。这可能吗？如果是的话，我将如何去做。这是我的代码到目前为止： Public Sub linksheet() Dim fd As FileDialog Dim strpath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Title = "Select Routing File" 'get the number of the button chosen Dim FileChosen As […]

如何在Access 2007中查询到期date: 我有一个2访问2007年表与以下领域：表1：贷款释放表 ReleaseDate as Date Maturity as Date MemberName as Text MemberNo as Text Term (in months) as Number Mode (M/Q/Semi-Monthly) as Text LoanType as Text LoanAmount as Currency LoanCode as Text 表2：付款表 ReceiptNo as Text DatePaid as Date MemberName as Text MemberNo as Text LoanCode as Text LoanReceivable as Currency InterestPaid as Currency 我想问一下如何使用查询来创build一个临时表，它将显示应该在当前date或指定date根据他们的期限，支付方式和贷款types支付的会员（每隔30天支付定期贷款，特别贷款每45天付）和他们的剩余余额。 […]

类函数中的错误91: 使用Access 2010，我收集信息并将其放在Excel电子表格上。当我运行下面的代码，我越来越运行时错误“91”：对象variables或未设置块在我的class上在这一行Set Cci = ChartColorItems(ColorID) Public Function GetRGB(ByRef ColorID As String) As Integer “ChartColors”类： Option Compare Database Option Explicit Private pChartColorItems As Collection Public Property Get ChartColorItems() As Collection Set ChartColorItems = pChartColorItems End Property Public Property Set ChartColorItems(ByRef lChartColorItem As Collection) Set pChartColorItems = lChartColorItem End Property Public Function GetRGB(ByRef […]

如何自动更新绑定数据集的访问报告？: 我有一个input到Access的悖论表中的单个input输出。现在我创build了一个报告，并在Paradox的数据集中完成了数据绑定。在Paradox中完成工作时，单个input输出会发生变化…如何打开访问权限并自动更新报告中的值，而无需手动重新导入表格？其目的是当打开访问时，报告立即出现在打印之前进行检查。

访问2013年VBA自动化Excel失去窗口: 我支持已经在生产多年的Access应用程序，并且Excel自动化的一部分停止了我们的Office 2013升级和从.mdb到.accdb的转换。 Access数据库包含对Microsoft Excel 15.0对象库的引用。 Excel对象被声明为： Public objXLApp As Excel.Application Public objXLBook As Excel.Workbook 并设置： Set objXLBook = GetObject(strReportPath & strTitle & ".xls") DoEvents Set objXLApp = objXLBook.Parent 在这一点上， objXLApp.visible = false。另外， objXLApp.Windows.Count = 1，这是正确的。如果在立即窗口中，我设置objXLApp.visible = true，那么我失去了我的窗口： objXLApp.Windows.Count = 0和引用预期的窗口返回一个'下标超出范围'的错误。运行它从.mdb文件生成相同的行为。有任何想法吗？共产国际再次，代码是由几年前由其他人写的，所以如果有更好的方法来设置工作簿，我愿意提出build议。 HansUp，我可以尝试你的build议。你能举一个例子吗？如果有效，我会将你的答案标记为正确的。基因，是的，原始文件是.xls格式，他们还没有升级到.xlsx。共同制，代码停止在最后一行代码执行，然后我使用立即窗口检查值，并更改可见属性，并再次检查值。 HansUp，修复它。我将代码更改为： Set objXLApp = […]

在VBA中查询中使用声明的string更容易: 我正在写一个macros，它应该运行查询将数据从excel传输到Access数据库，并且一切工作正常，但是，如果我想要在这些查询之一中使用string，我必须键入它们，如下所示： '" & Lijn & "' 我知道下面的代码（使用VBA编写）通过使用问号和setString更容易在Javascript中编写： VBA： Dim ShiftsQ As String ShiftsQ = "INSERT INTO Shifts(Lijn, Operator, Ploeg, Teamleider) VALUES ('" & Lijn & "', '" & Operator & "', '" & Ploeg & "', '" & Teamleider & "');" 使用Javascript： var ShiftsQ = SQL.prepareStatement(INSERT INTO Shifts(Lijn, Operator, Ploeg, Teamleider) VALUES (?, ?, ?, […]