Tag: 访问

如何提取电子邮件和填充电子表格的值: 我有一个macros，它读取收件箱中的未读消息，并使用“：”分隔符从消息中提取数据。在循环中，我想能够加载新的Excel电子表格与消息的值。我能够select第一个单元格并保存数据，但是它正在被写入。每次在循环中我想要数据到列中的下一个单元格是空的，而不是覆盖同一个单元格。这是我的代码到目前为止… Public Sub Application_NewMail() Dim newbk As Workbook Set newbk = Workbooks.Add newbk.SaveAs "C:\Users\RickG\Desktop\test2.xlsx" 'other parameters can be set here if required ' perform operations on newbk newbk.Close savechanges:=True Dim ns As Outlook.NameSpace Dim InBoxFolder As MAPIFolder Dim InBoxItem As Object 'MailItem Dim Contents As String, Delimiter As String Dim Prop, […]

访问VBA：方法pastespecial的工作表类失败: 我有一个VBA代码应该将筛选的查询数据导出到Excel。当我通过一个OnClickbutton激活代码时，出现错误： Method pastespecial of worksheet class failed 。我在Windows Server 2012 R2计算机上运行Access 2013 。 VBA代码： Private Sub cbExport_Click() On Error GoTo Command13_Click_Err DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Dim xlapp As Excel.Application Set xlapp = CreateObject("Excel.Application") With xlapp .Workbooks.Add .ActiveSheet.PasteSpecial Format:="Text", _ Link:=False, _ DisplayAsIcon:= False .Cells.Select .Cells.EntireColumn.AutoFit .Visible = True .Range("A1").Select End With Command13_Click_Exit: Exit […]

MS Excel VBA – 导入访问（MDB）表结构: 我有这个片段，将访问表导入到Excel中。 MDBpath在范围C2中，表名称是C4 有没有一种方法可以导入表的属性/devise，并使用excel vba将其写入新的位置？这将用于许多具有不同技能水平的人员，具有不同的表结构来导入。数据最终将不得不回到访问，但我正在绊倒如何确保访问内的字段属性是正确的。 Sub GetData() DeleteConnections 'remove existing connections in case they persist Sheet4.Cells.Clear 'clear the old table Sheets("Import").Activate DatabaseName = Sheets("Setup").Range("C2").Value TableName = Sheets("Setup").Range("C4").Value With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _ "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=" & DatabaseName & "" _ , _ ";Mode=Share" _ , _ " Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database […]

自动填写访问表单中的ID: 我想创build一个ID在一个数据库访问的窗体中的ID是由date.time.user ID自动生成像/ 161212.2227.s978904 / 我在VBA excel中创build它，但不能访问。 Sub IDgen() Dim ID, Yr, Dt, Mth, Hr, Min As Integer ID = Environ("username") Yr = Right(Year(Date), 2) Mth = Format(Month(Date), "#00") Dt = Format(Day(Date), "#00") Hr = Format(Hour(Time), "#00") Min = Format(Minute(Time), "#00") Sheets("Sheet1").Range("A2").Value = "C" & Yr & Mth & Dt & "." & Hr & Min […]

计算关联名称（VBA，SQL）的连续date的实例: 大家早上好，我试图从数据集中确定连续date（不包括星期天）的实例。数据存储在Access中，我将所需date拖到Excel中。然后我试图确定每个人在提供的数据中有多less个实例。下面的例子。数据示例： | Name | Date of absence| | Bob | 02/01/17 | | Jill | 02/01/17 | | Bob | 03/01/17 | | Jill | 04/01/17 | 结果示例： Bob – 1 Instance, 2 days Jill – 2 Instance, 2 days 我开始尝试在Excel中使用VBA来处理这个问题，使用循环遍历每一个缺席的情况，直到所有人都完成/打勾，但是代码变得非常麻烦并且感觉效率很低，更不用说它有多慢获得更大的数据集！我想知道是否有可能查询数据库的信息或写一些更有效的东西。任何帮助或build议，将不胜感激！更新： testing汤姆的build议; Sql = "SELECT Absence.Racf,count(RecordDate) as […]

按多个标准合并并将重复分割成单独的列？: 我很确定这个问题已经被提出并在某些时候回答了，但是我是一个新手，真的缺乏有效地find问题和解决scheme的词汇。我有一个简单的任务，因为内部内存限制，我无法在Excel中执行任务，但是我对SQL或R知之甚less，不知道如何在这两个平台中执行此任务。我有两张桌子，一张有唯一ID号的唯一条目，另一张有这些ID号的多个副本，每个副本都显示不同的数字（代表职业生涯中的每个新的薪水）。我试图将每个工资映射到原始的唯一ID表，为每个可能的变化创build新的列（Salary1：Salary50）。最终，我还需要绘制每个更改的date和差异以进行分析。这是一个例子：这是唯一的ID表： Table 1 ID Salary1 Salary2 Salary3 Salary4 Salary5 1 ? ? ? ? ? 2 ? ? ? ? ? 3 ? ? ? ? ? 4 ? ? ? ? ? 5 ? ? ? ? ? 这是带有重复ID和我想要的信息的工资表： Table2 ID Salary SalaryDate 1 10 1/1/2014 1 11 […]

Powershell脚本没有在远程桌面上find文件: 我有一个简单的PowerShell脚本，我保存在C：\ Users \ Public包含以下代码： #run program $excel = new-object -comobject excel.application $excelFiles = Get-ChildItem -Path "C:\Users\Public" -Include *.xls, *xlsm -Recurse Foreach($file in $excelFiles) { $workbook = $excel.workbooks.open("sendEmail.xlsm") $worksheet = $workbook.worksheets.item(1) $excel.Run("CDO_Mail_Small_Text") $workbook.save() $workbook.close() } $excel.quit() 如您所见，该脚本将打开一个与.ps1文件位于同一文件夹中的excel文件。 Excel文件应该发送一封电子邮件。这是我创build的一个testing用例，它在我的本地机器上正常工作。我试图让这个在RDP上运行。当我从本地机器上将这两个文件复制到RDP（C：\ Users \ Public）上的相同位置并通过powershell运行.ps1文件时，出现以下错误： Exception calling "Open" with "1" argument(s): "'sendEmail.xlsm' could not be found. 由于这完美地在我的电脑上工作，我不知道为什么它无法在远程计算机上工作。 […]

为什么我需要围绕这个单词的括号在Excel VBA中运行SQL查询？: 我有一个查询，我在Excel VBA中运行。我试图打开使用ADO库的logging集。我在访问vba中运行这个代码，它工作正常。当我尝试在Excel VBA中打开logging集时失败。一旦我把括号括在vz.Zone部分，它终于奏效了，但是在其他地方不需要括号。我想弄明白为什么这里需要。我已经看到，括号是任何有空格，这不是，或保留的关键字，这似乎并不需要括号。任何人都可以在这个问题上有所了解？我感谢帮助。 Cost = "SELECT vz.vendorID, [vz.Zone], cl.CountryName, V.VendorName" & _ " FROM ((VendorZones AS VZ INNER JOIN CountryList AS CL" & _ " ON VZ.CountryID = CL.CountryID) INNER JOIN Vendors AS V ON" & _ " VZ.VendorID = V.VendorID) WHERE CL.CountryName = 'Austria'"

想用VBA列出内置函数: 我想以编程方式使用VBA，生成Access文件中可用的VBA函数的列表（文本，表，无关紧要）。我不想生成用户编写的函数列表。。。我正在寻找生成内置函数的列表。我会寻找生成一个列表，如下所示： left，instr，date，mid，asc，reverse，month，cstr等等等等我在VBA对象浏览器中看到，转换，date时间，文件系统，金融，信息，交互，math和string的类名下有VBA命令的全部集合。我尝试过所有在VBA中尝试枚举这些类的对象声明，但都没有成功。我希望能够做的就是枚举函数名称。

如何从使用VBA的URL导入json数据？: 我有以下的json数组，你可以很容易地访问下面的url： https://crowdfluttr.firebaseio.com/test/array.json 它有以下输出： {"-0p":{"date":"2015-01-01","string":"apple","value":1},"-1p":{"date":"2015-02-04","string":"banana","value":50},"-2p":{"date":"2015-02-03","string":"carrot","value":99},"-3p":{"date":"2015-02-02","string":"banana","value":20},"-4p":{"date":"2015-03-01","string":"banana","value":11},"-5p":{"date":"2015-04-01","string":"kiwi","value":23},"-6p":{"date":"2015-05-01","strawberry":"banana","value":10}} 我想拉这个JSON数据从这个url，然后parsing它推入微软访问。我发现资源解释如何parsingJSON（ parsingJSON ，在Excel VBA中parsingJSON ），但不从URL中拉出来，然后parseit