Tag: ms access 2007

MS Access的公式访问: 我如何使这个公式在MS Access 07工作。我试图用expression式生成器来构build它，但它只是给我的名称错误。 =IF(SEX="M",IF(AGE<30,PUSHUPS-20,IF(AGE<40, PUSHUPS -17,IF(AGE<50, PUSHUPS -13, IF(AGE<100, PUSHUPS-4,0)))),IF(AGE<30, PUSHUPS -1,IF(AGE<40, PUSHUPS,IF(AGE<50, PUSHUPS +3,IF(AGE<100, PUSHUPS +9,0))))) 任何帮助将是伟大的，谢谢你们。节日快乐。

如何更改ACE TypeGuessRows Access 2007的registry值，以便在使用VBA从Excel文件导入时正确地确定字段数据types: 我有一个Access数据库从外部Excel电子表格导入数据，其中包含一个名为Date Delivered的数据列。虽然这一栏中的大部分数据实际上是一个datetypes，但是有时候会有4/5/15,5/1/15这样的条目来表示两个交货date。当使用以下命令导入数据时，它将访问Access： DoCmd.TransferSpreadsheet acImport, 5, "Delivery Data", "\\File\Path.xlsx", True 这导致它使列成为datetypes而不是从那些有问题的字段中删除任何值的string。我发现这里似乎是一个有用的解决scheme，build议将TypeGuessRowsregistry值更改为0，以使Jet在确定字段数据types时查看所有行。我使用以下代码创build并更改了registry值： Dim RegLoc As String Dim myWS As Object 'Writes registry value to make Jet check all rows (0) not just first 25 (Default value = 8) to determine type RegLoc = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel\TypeGuessRows" Set myWS = CreateObject("WScript.Shell") myWS.RegWrite RegLoc, 0, "REG_DWORD" 不幸的是，这似乎并没有工作，因为问题在更改值和重新启动Access和Excel后仍然存在。 […]

Excel VBA：连接刷新错误: 我有一个访问数据库坐在networking驱动器上的共享文件夹。它通过excel被多台计算机访问。用户有权通过Excel工作表更新和修改数据库。该数据库可作为Excel表格中的embedded表格提供。我正在使用Excel 2007。为了这个工作，我有一个自动的macros运行，它将数据源path更改为计算机的path。例如，在我的PC上，它可能位于C：/accessDB.accdb，但在用户X的PC上，数据可能位于Z：/accessDB.accdb。运行的更新如下： Dim connString As String Dim folderLoc As String Dim cn As WorkbookConnection Dim oledbCn As OLEDBConnection Set cn = ThisWorkbook.Connections(local_table) Set oledbCn = cn.OLEDBConnection folderLoc = ThisWorkbook _ .sheets(settingSheet) _ .Range(settingDbFileFolder).Value _ & "\" & _ ThisWorkbook _ .sheets(settingSheet) _ .Range(settingDbFileName).Value connString = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" […]

从Access 2007传输到Excel 2007中排除列标题的代码: 这是我正在使用的代码。它工作正常，但我需要知道什么额外的代码是需要排除列标题。 Private Sub Command104ContrDonatWeekly_Click() On Error GoTo Command104ContrDonatWeekly_Click_Err DoCmd.OpenQuery "Contributors Who Donated in Past Week", acViewNormal, acEdit xlfile = "C:\Users\Michael1\Desktop\KSN\DistributionListWeekly.xlsb" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, _ "Contributors Who Donated in Past Week", xlfile, True, "EmailList" Shell "Excel.exe " & xlfile, vbNormalFocus Command104ContrDonatWeekly_Click_Exit: Exit Sub Command104ContrDonatWeekly_Click_Err: MsgBox Error$ Resume Command104ContrDonatWeekly_Click_Exit End Sub 这里是一些代码如何编写VBA代码来隐藏Excel中的所有列和行标题？我不知道在哪里需要使用我已经使用的代码。 Private Sub […]

将Excel工作表导出到访问表（.accdb）: Excel中有一个macros绑定到我的一个工作表上的一个命令button。单击时，我试图将工作表“FeedSamples”中的数据导出到名为“ImportedData”的Access数据库表中。任何人都可以帮我吗？我已经从网上尝试了多个例子，没有运气。这是我现在有，但不断收到“运行时错误3343”：无法识别的数据库格式“filePath \ FeedSampleResults.accdb Dim db As Database Dim rs As Recordset Dim r As Long Set db = OpenDatabase("filePath\FeedSampleResults.accdb") Set rs = db.OpenRecordset("ImportedData", dbOpenTable) r = 2 Do While Len(Worksheets("FeedSamples").Range("A" & r).Formula) > 0 With rs .AddNew .Fields("REPTNO") = Worksheets("FeedSamples").Range("B" & r).value .Update End With r = r + 1 Loop […]

将各种文件大小转换为字节: 我有一列“文件大小”输出不佳，因为它不一致。例如，值可以是“4GB”，“32MB”，“320KB”，“932字节”等。我需要将这些全部转换为标准值，以便我可以将它们添加到报告中。

Microsoft.ACE.OLEDB.12.0当前logging集不支持尝试更新访问时收到的更新错误: 我有一个ASP页面，用户将上传一个Excel文件。文件成功上传后，我想要在REGION选项卡中的行，并将它们插入MS Access 2007表。下面是我使用的代码，我得到这个错误。我可以使用Microsoft.ACE.OLEB.12.0提供程序的logging集更新吗？有一个更好的方法吗？ ADODB.Recordset错误“800a0cb3” 当前logging集不支持更新。这可能是提供者或所选lockingtypes的限制。 Set cnnExcel = Server.CreateObject("ADODB.Connection") cnnExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & strExcelFile & ";" & _ "Extended Properties=" & Chr(34) & "Excel 12.0 Xml;HDR=Yes;IMEX=1" & Chr(34) & ";" Response.Write "Excel connection opened<BR>" ' Load ADO Recordset with Excel Data Set rstExcel = Server.CreateObject("ADODB.Recordset") rstExcel.Open "Select […]

舍入到最接近的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 […]

当我在excel（dd / mm / yyyy）中导入date格式到msaccess时，它显示非date值: 当我以date格式（dd / mm / yyyy）导入excel文件来访问它时，显示非date值是什么问题。例如：27/3/2012到33765这里33765是一个非date值

将图片插入Excel，并保持宽高比不超过维度与VBA: 我将Access数据库中的数据导出到Excel报表中，报表中需要包含的部分是与数据对应的图片。图片存储在一个共享文件中，并插入到Excel文件中，如下所示： Dim P As Object Dim xlApp As Excel.Application Dim WB As Workbook Set xlApp = New Excel.Application With xlApp .Visible = False .DisplayAlerts = False End With Set WB = xlApp.Workbooks.Open(FilePath, , True) Set P = xlApp.Sheets(1).Pictures.Insert(PicPath) 'Insert picture With P With .ShapeRange .LockAspectRatio = msoFalse .Width = 375 .Height = 260 End […]