Tag: Excel的VBA的

Python来控制Excel的多重实例中的macros

如何控制Python的多个Excel实例。 这不是读/写，而是在不同的工作簿上运行更多的macros。 例如：运行Book1.xls的Excel.exe。 有运行Book2.xls的mac1 Excel.exe。 有mac2。 我有一个实例工作，这是第一个实例，它使用2003年。我无法弄清楚另一个实例是2007年。 如果2可以做，可以3或4，或者是一个限制。 我想memcache启动不同的实例，但真的不知道，如果可行的话。 TIA 工作应用这个： 使用Python来编写MS Officemacros？

使用格式导出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的经验。 如果我能得到关于如何前进的详细说明，将不胜感激。 谢谢

后期绑定用户窗体函数

我有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 […]

将两两转换为基于值的不同行数列表

我有一组成对的起源和目标数据作为行。 每个人都有从原点到目的地的人数。 这个数字相差很大（从4人到200人）。 我想要实现的是将这些行转换为列表明智的地方，其中两行代表一个移动….这听起来反直观，但它是我需要将数据读取到我使用的映射包中的格式。 我希望下面的图像更好地说明了我正在尝试做的事 – 红色单元格表示4次移动（Total列），然后将其转换为8行，原点和目的地重复4次。 Excel将在此期间工作（作为一个概念certificate），但是如果我要closures整个数据集，我将获得两百万条logging（至less） – 所以需要数据库或Python解决scheme – 只是为了生成最终列表的* .csv文件。 注意 – Total列加倍表示需要的行数 – 所以如果5个人移动，它将需要10行。 所以 – 我已经将这个问题标记为Excel，Access或Python解决scheme。 我是VBA或者Python的新手，但是可以提供build议。 更新谢谢堆萨罗！ 该解决scheme工作得很好（适当改变input和输出.csv的文件path） – 这里是从数据中获得的animation的屏幕截图！

从userform – vba excel的tabstrip中移除tab

我有一个表单与几个控件。 它包括一个带有一个标签的标签条。 我允许用户通过单击commandbutton1添加选项卡。 到目前为止这么好。 现在，我还希望用户能够通过单击commandbutton2删除最后一个选项卡（第一个除外）。 问题是，尽pipe我已经search了大约两个小时的事实，但当涉及到标签时，我找不到方法“删除”的正确语法。 任何帮助appresiated。 编辑： 使上述问题更具体：当参数是“stringvariables”而不是特定的标签名时，“remove”方法的正确语法是什么？ （例如删除当前标签） 例如，如果以下任何一项工作，这将是很好的： Sub test Dim nm As String With TabStrip1 nm = .SelectedItem.Name .Tabs.Remove (nm) End With End Sub 要么 Sub test With TabStrip1 .Tabs.Remove (.SelectedItem.Name) End With End Sub

来自Excel的电子邮件不会发送附件

我有一个工作簿，我从中创build一个基于一系列单元格的PDF。 这一切工作正常。 我这样做与产生电子邮件分开，所以可以在其发送电子邮件之前进行检查。 然后，我从同一个工作簿创build一个电子邮件发送PDF附件。 电子邮件的正文是从工作簿的另一个单元格范围创build的。 再一次，这样做没有问题。 我发送的时候出现了问题。 电子邮件发送罚款和电子邮件的正文是好的，但没有附件。 我已经尝试三重检查附件的文件path（甚至将其移动到一个更简单的path进行testing），并将其更改为附加一个简单的文档文件。 我也使用了两个不同的电子邮件提供商1和1和GMail，但也有同样的问题。 那个依恋只是不想离开我。 我也注意到，当我将鼠标hover在任何types的链接上时，我现在都有一条鼠标指针出现的消息。 消息是：处理请求时出错 – 错误的响应。 我只能猜测它与我已经发射的所有testing邮件有关，但不知道它是什么意思或如何摆脱它。 我还有东西在跑吗？ Sub CDO_Send_Email_Angebot() Dim Rng As Range Dim iMsg As Object Dim ws As Worksheet Dim Flds As Variant Dim iConf As Object Dim PdfFile As String PdfFile = Sheets("5_Angebot").Range("E97").Value & "." & Sheets("5_Angebot").Range("E98").Value 'MsgBox rngAttachment '———- Get the […]

R：如何从MS Excel电子表格中提取图表？

我环顾四周，但无法find从Excel电子表格中自动提取图表的方法。 （我select的工具是R，但我会​​考虑替代品。） 有没有人做过？ 更新：我有一堆使用Excel 2013创build的电子表格，我想提取所有图表作为图片（例如PNG）。 我不介意使用VBA，但是我需要能够在所有的电子表格上一次运行代码，因为一个接一个地通过它们会打败这个练习的目的。

从excel连接到mysql：ODBC驱动程序不支持所请求的属性

我想从Excel中添加数据到MySQL。 我得到这一行上面的错误：rs.Open strSQL，oConn，adOpenDynamic，adLockOptimistic 这里是我的代码： Dim oConn As ADODB.Connection Private Sub ConnectDB() Set oConn = New ADODB.Connection oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERVER=localhost;" & _ "DATABASE=employees;" & _ "USER=root;" & _ "PASSWORD=some_pass;" & _ "Option=3" End Sub Function esc(txt As String) esc = Trim(Replace(txt, "'", "\'")) End Function Private Sub InsertData() Dim rs As […]