Tag: Excel的VBA的

用.FIELDS adodb显示多个值

我正在获取一些数据： rs.Filter = "datapath='" + dpath + "' and analystname='" + aname + "' and reportname='" + rname + "' and batchstate='" + bstate + "'" If Not rs.EOF Then MsgBox rs.Fields("rowid") End If 如果rs.filter返回多个logging，我如何得到rs.fields("rowid")给我多个rowid值？

从python运行excelmacros（Windows和Linux）

我写了一个Python脚本，它接受input文件并输出一个CSV文件。 接下来，我进入Excel，并使用条件格式来颜色的一些信息（例如，如果A2 = 1，颜色背景红色） – 保持格式我把它保存为* .xlsx（不知道这是一个好主意，目前只在Windows中testing）。 这需要多次执行。 简而言之：我想将第二阶段join到脚本中，并且这需要在Windows和Linux中都起作用。 我的想法：logging一个Excelmacros，让Python打开CSV文件并运行该macros，然后（保存为…？）closures文件或保持打开（可选命令标记-k，–keep_open）。 我的search没有find适用于两种操作系统环境的解决scheme。 这看起来很接近，但似乎是以Windows为中心的。 想法/build议将不胜感激。

通过Access VBA在Excel中添加格式条件

所以目前我在我的代码中得到了这些行， .Range("C2").Formula = "=IF(B2 = """"," & """REQUIRED""" & "," & """""" & ") " .Range("C3").Formula = "=IF(B3 = """"," & """REQUIRED""" & "," & """""" & ") " 我的目标是添加一个条件格式，所以如果它等于需要从范围= $ C $ 2：$ C $ 3转背景红到目前为止我看到一些代码在线，但没有一个似乎适用。 我修改了一些现有的代码为我的目的，我得到xlExpression“variables未定义”的错误。 谁能帮我？ .Range("C2:C3").Selection.FormatConditions.Delete .Range("C2:C3").Selection.FormatConditions.Add TYPE:=xlExpression, Formula1:="=(=$C$2:$C$23 = 'REQUIRED')"

recursion保存 – 抛出错误

我正在编写一个recursion的VBA脚本，并从目录中获取所有单词和excel文件，然后打开并保存为模板，然后closures。 一切正在相应的工作，但当我试图closures打开的Excel应用程序时，我得到一个错误“运行时错误'91'：对象variables或未设置块” 代码如下： If ExtFind = "xlsx" Or ExtFind = "xls" Then Debug.Print ("EXCEL FILE FOUND") Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.DisplayAlerts = False xlApp.Visible = True xlApp.Workbooks.Open strFile ActiveWorkbook.SaveAs FileName:=saveString, FileFormat:=xlTemplate ActiveWorkbook.Close xlApp.Quit Set xlApp = Nothing End If 错误发生在线上： ActiveWorkbook.SaveAs FileName:=saveString, FileFormat:=xlTemplate 我100％肯定，variablessaveString包含正在从访问表中检索正确的值。 代码作为循环的一部分执行。 我认为这个问题是关于目前的工作手册，但我不确定。 任何帮助将不胜感激。

使用SQL数据库查询在VBA中date/时间转换失败

第一件事是第一件事 这是我的代码。 Dim conn As ADODB.Connection Dim rec1 As ADODB.Recordset Dim connStr As String Dim thisSql As String Dim testStr As String Sub Button3_Click() Worksheets("Sheet5").Range("N1") = Worksheets("Sheet5").Range("N1") + 1 Set conn = New ADODB.Connection connStr = "DSN=myDatabase;UID=myUsername;PWD=myPassword;APP=Microsoft Office 2013;WSID=myPCname;DATABASE=myDatabase" conn.Open connStr thisSql = "SELECT myDatabase.OrderNumber, myDatabase.CustomerName, myDatabase.ShipProd, myDatabase.Sum of Sales, myDatabase.InvoiceDate FROM myDatabaseAddress " thisSql […]

MS ACCESS – VBA – 形状显示数据

第一次问堆栈而不是从存在中受益。 我想写一个使用MS Access的应用程序，允许用户实例化具有空字段（文本，列表，combobox，单选button）的形状来devise他们的项目pipe理工作stream程。 一旦我写这个，我把它做成一个Web应用程序，使用我们的数据库来运行algorithm，猜测他们将花费多less时间和金钱在他们的项目上的任务/时间/金钱等 我想知道MS Access形状的是，如果他们能够维持这种types的用户界面，其中用户可以input信息作为形状的属性，或者如果形状可以具有属性本身是文本字段，列表，combobox和纽扣。 我是否可以通过形状进行select，还是必须以不同的方式组织控件，以便将它们分组以使algorithm将其数据用作input？ 有没有更聪明的方法呢？ 我打算用python编写它，但是不得不分开存储所有的废话，通过excel和http的东西看起来更像是一个时间而不是它的价值。 这将最终成为一个Web应用程序。 感谢堆栈！

如何从Excel更新SharePoint中的Access数据库？

我目前有一个本地存储的Access数据库。 我通过使用Excel作为前端来更新这个input一些信息，并有VBAinputlogging到数据库。 也就是说，我在Excel中有一个表格，我可以添加行并运行一个执行一些SQL将它放入Access的macros。 我想多个人能够更改Access数据库，所以我已经存储在SharePoint中。 问题是，只是改变我的VBA中的文件path给我“操作必须使用可更新的查询”，因为打开数据库是在从SharePoint打开时以只读模式完成的。 VBA看起来像这样： Sub Insert() Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase accDbLocation, True theSQL = "insert into Table(data)" appAccess.CurrentDb.Execute theSQL appAccess.CloseCurrentDatabase End Sub 有没有什么好的解决方法呢？ 也许是从SharePoint检出数据库的一种方法，进行更改，然后再检查它？ 如果没有，还有其他的方式来与SharePoint上的访问数据库进行交互，例如制作可用于添加logging的表单？ 谢谢！

附加macros文件到php excel生成的文件

我的问题是以下…我正在重新开发一个健身房的系统，我想在互联网不工作的情况下，与macros的Excel文件。 当我想从我的数据库生成我的Excel文件（PHP），因为我不知道如何保持我的macros函数附加到文件的问题出现。 后面的想法是，在一天结束时，pipe理员生成该文件，以便第二天早上，如果互联网停机，健身房可以与最新的信息（与macros和VB的东西）的作品。 我googled“PHP附加macros文件到Excel”，但无法find解决scheme（我将不得不以前开发macrosfunction）。

从Excel中删除Explorer中的多个文件

我试图select一个特定的文件夹中包含从Excel列表中大约22K的17K文件。 该列表具有所有文件的名称和扩展名，仅此而已。 我试过这个代码，但没有运气。 Sub DeletePics() Dim picRNG As Range, pic As Range, picPATH As String picPATH = "path" Set picRNG = Sheets("Sheet1").Range("A1:A17108").SpecialCells(xlConstants) On Error Resume Next For Each pic In picRNG If pic.Offset(, 1) = "Delete" Then If Len(Dir(picPATH & pic.Value)) > 0 Then Kill picPATH & pic.Value pic.Offset(, 2).Value = "Deleted" Else pic.Offset(, 2).Value […]

PHP计数基于名称的单元格数据

我一直在做一些关于表单数据的手动报表，现在我得到的数据量相当大，最初是50条，现在超过了500条，所以我需要find更简单的方式来pipe理它。 我认为一个PHP程序可能会使这更容易。 基本上我有像下面的数据，我需要按用户sorting，并计算每个用户有多less主angular。 列 用户名| 铅源 皮特M，铅1 菲奥娜L，铅2 记住这个csv文件是相当大的，我想知道是否有人有一个更简单的方法来解决这个比我做一个手动Excel的公式。 非常感谢，