Tag: vb6

VB6应用程序在一个位置打印Excel文件的一个副本，但在另一个位置打印两个副本

我们有一个传统的VB6应用程序，使用Excel模板打印工单。 奇怪的是，它在我们的一个地点打印了一份工作订单，而另一份打印了两份。 我说“奇怪”的原因是，这是打印文件的行： objExcelWorkbook.PrintOut Copies:=2, Collate:=True什么使它忽略Copies:=2在一个物理位置，但在另一个服从呢？ 应用程序位于服务器上，因此两个位置都使用相同的版本。 可以不同版本的Excel导致这个？

OpenXML可以在VB6中使用吗？

我在使用OpenXML在C＃.Net和VB.Net中创build和修改excel电子表格方面取得了巨大的成功。 我们现在需要在VB6中修改电子表格。 OpenXML将与VB6集成吗？ 有没有人有一个示例项目显示如何设置？

如何从内存中删除/卸载VB6 Excel COM加载项，而不卸载它？

我想知道如果有人知道我怎么能去从Excel环境（即卸载它），通过代码，但不卸载它的VB6 COM加载项 ？ 我已经尝试设置相应的COMAddin“连接”属性为false，如下面的代码： MyExcellApp.COMAddins("myComAddin").Connect = False 虽然这样做是从内存中卸载加载项，但Excel在重新启动时不会再次加载它。 也就是说， COM加载项实际上是卸载的，必须重新安装（通过Excel的COM加载项菜单选项）才能重新运行。 我为什么要这样做？ 那么，我正在创build一个相当复杂的COM插件 ，我想给最终用户一个机会来卸载它，如果他们觉得这是在干扰他们的环境。 它将像加载项的“退出”button一样，但只要重新启动Excel ，它就应该允许加载项再次加载。

删除所有其他列

此代码是一个macros，它在不同的工作表中search一些值并删除它们的列。 但是，如果我想要删除所有其他列，并保留它们，我该怎么办？ 换句话说，我想让macros观做相反的事情？ 码： Sub Level() Dim calcmode As Long Dim ViewMode As Long Dim myStrings As Variant Dim FoundCell As Range Dim I As Long Dim wsSkador As Worksheet Dim ws As Worksheet With Application calcmode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With myStrings = Array("Apple", "Banan") For Each ws In […]

对象'〜'的方法'〜'在vb6中使用Excel失败

我们正在面对一个VB 6.0应用程序的问题。 有一行代码通过Excel.Workbook将文本文件转换为Excel文件。 当我们通过Windows应用程序运行时，此代码正常工作。 但是，如果我们从C＃.Net开发的Windows服务运行相同的exe，那么它会在这一行上出现这个错误 oWB.SaveAs FileName, XlFileFormat.xlExcel8 我试图search谷歌，但没有得到任何成功。 任何build议将非常有帮助。 提前致谢。 问候AR

通过VB6条件格式化Excel文档（与覆盖格式相关的问题）

我在运行时创build了一个Excel文档，其中包含了一些我想要有条件格式化的值。 在从零开始进行各种尝试以及使用/修改从Excelmacros录制器输出的代码时，我遇到了与格式化覆盖有关的一致问题。 我已经发布了下面的代码片段，可以说我已经过testing，以确保我的select范围是有效的，适合我想要的条件格式。 有一些重叠，但奇怪的是，第一个条件格式只有第二个条件格式的一个属性。 含义D5：工作表的末尾有一个绿色的字体，而不是红色的。 评论代码的每一部分确实允许他们独立工作，但我猜这是一个问题，进一步指定条件格式？ 我已经尝试了几种不同的情况，下面是修改后的代码： 编辑（更新代码）： 'First conditional format, check sheet for values > 50 and make text red. With xl.range("D5:" & theLastColumn & lastRow) .FormatConditions.add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=50" With .FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With .FormatConditions(1).StopIfTrue = False End With 'Second conditional format, check specific row (row 5 in […]

VB6试图让老程序与Excel 2013工作

我有一个程序，这是创build一个程序，是为了获取数据，并将其导出到excel它是在VB6，我不知道很多关于VB6我开始编码在VB.NET有人可以告诉我为什么这不是与Excel 2013的工作，但它打开，但然后马上closures，我不确定为什么。 Sub GetExcel() Dim MyExcel As Object ' Variable to hold reference ' to Microsoft Word. Dim ExcelWasNotRunning As Boolean ' Flag for final release. ' Test to see if there is a copy of Microsoft Excel already running. 10 On Error Resume Next ' Defer error trapping. ' Getobject function called without the […]

Excel vba报告

我正在build立一个VB6的Excel报告。 我正在做的是穿过一个logging集，并插入文本到一个单元格。 我试图看看是否有办法让我dynamic地合并中心2单元格，并在其周围放置边框。 这是我的代码看起来像…. Do While Not g_RS.EOF xlSheetInsurance.Cells(xlRow, xlCol).Value = g_RS("Label") xlSheetInsurance.Cells(xlRow + 1, xlCol).Value = " Count Sales " xlSheetInsurance.Cells(xlRow + 1, xlCol + 1).Value = "Count Buys " xlCol = xlCol + 2 g_RS.MoveNext Loop 所以'标签'插入到其他列。 在标签下面，我插入COUNT SALES和COUNT BUYS，所以基本上我试图把LABEL的值合并，并将它居中放置在两个单元格中，所以它下面的2列看起来像属于标签 – 因为我插入了很多标签，我希望它看起来有些专业。 编辑：我创buildmacros，但我似乎做错了什么 xlSheetInsurance.Cells(xlRow, xlCol).Value = g_RS("Label") xlSheetInsurance.Range(xlCol, xlCol + 1).Select With Selection […]

VBA监视文件夹的新文件

所以我想写一个VBA程序，将监视一个文件夹的新文件，然后做他们的东西。 我发现了一些使用WMI API的有希望的例子： 在没有轮询的情况下接收在VBA中创build文件的通知 http://www.mrexcel.com/forum/excel-questions/211547-monitor-new-files-folder.html https://blogs.technet.microsoft.com/heyscriptingguy/2004/10/11/how-can-i-automatically-run-a-script-any-time-a-file-is-added-to-a-夹/ 但事情是这样的：看起来每个人都用这些例子来把VBA作为一个macros来连接到Excel电子表格。 人们把Excel当成穷人的编程环境。 很公平。 问题是，我需要这个运行，当用户closures了这个macros与魔术Excel文件。 事情告诉我，我需要在Visual Studio中用VB6.0或C＃做一个完整的Windows应用程序，并在后台运行应用程序作为某种计划任务。 这是正确的道路，还是有一些简单的，我错过了这些Excel / VBA教程？ （对这个问题的一般性表示抱歉，我知道社区对具体问题表示赞赏。）

VBA Activechart.CopyPicture对象定义的错误

我在使用Excel创build和复制VB6中的图表时遇到问题。 我有以下代码 Private Sub CreateChart(Optional ByVal ChartTitle As String _ , Optional ByVal xAxis As Excel.Range _ , Optional ByVal yAxis As Excel.Range _ , Optional ByVal ColumnName As String _ , Optional ByVal LegendPosition As XlLegendPosition = xlLegendPositionRight _ , Optional ByVal rowIndex As Long = 2 _ , Optional ByRef ChartType As String […]