Tag: vb6

我可以复制VBA代码而不打开像Excel或Word这样的关联文件吗？: 是否可以从Office文档中提取VBA源代码的文本？我是否需要先启用编辑才能使macros代码可见？背景：我正在VB6中开发一个小应用程序，目的是打开Excel或Word文件，并将macros代码（如果有）复制到文本框中进行调查。我为一家收到大量请求转发被阻止的邮件的公司工作。这些邮件被阻止，因为它们具有.xls，xlsm，doc，docx等扩展。问题是，我需要启用“启用编辑”来查看代码，我不想这样做，因为如果它后面有任何代码，它将运行。

combobox和文本框的VBAdynamic数组单击事件: 嘿，我有以下的VBA代码，允许我有一个dynamic创build的combobox和文本框到用户窗体上的点击事件。用户窗体： Option Explicit Dim comboboxBoxColct As New Collection Dim textboxBoxColct As New Collection Private Sub UserForm_Activate() Dim comboboxEvent As Class1 Dim textboxEvent As Class1 '..lots more code within here If LCase(TypeName(controller(i))) = "combobox" Then Set comboboxEvent = New Class1 Set comboboxEvent.comboboxBox = controller(i) comboboxBoxColct.Add comboboxEvent ElseIf LCase(TypeName(controller(i))) = "textbox" Then Set textboxEvent = New […]

代码循环遍历文件夹VB中的所有工作簿: 我有一些Excel（.xls）存储在本地驱动器的文件夹中。我需要对该文件夹中的每个文件执行一些操作。什么是代码将遍历每个文件打开文件做一些处理，然后保存并closures文件处理后将文件移动到另一个文件夹为了更清楚一点，我想查看每个文件并对其进行处理。完成文件后，转到另一个文件，直到文件夹中的所有文件结束。我确实有处理的代码; 我只需要知道将通过文件循环，然后移动到另一个文件夹的代码。感谢您的帮助，

FileSystemObject代码已经开始抛出一个错误: 不知道为什么，但下面的代码已经开始抛出一个未知的错误。 macros运行时Excel停止响应。为什么这个错误发生？什么是具有相同function的替代路线？此代码位于Windows 7计算机上的Excel 2010 xlsm文件中。 Sub CopyFolderToCasinoDirectory() 'reference Microsoft Scripting Runtime On Error Resume Next Dim fso As Scripting.FileSystemObject Set fso = New Scripting.FileSystemObject fso.CopyFolder _ "\\xxxfileserve\department$\DBA\Opers\All Operators\yyy", _ "\\xxxfileserve\department$\DBA\Cas\yyy", _ True On Error GoTo 0 Set fso = Nothing End Sub 好吧 – 我已经改变了path，试图移动更less的文件 – 它犹豫了，但最终还是贯穿始终。我怀疑以上是失败的，因为在指定的目录中有太多的文件？目前有753个文件 – 可能太多了？ RonDeBruin给了我很多关于如何testing或改变逻辑的想法。 […]

如何select具有多个工作表的VB6中的Excel范围: 我有一个数组70000元素（VB6），我需要把数组作为一个Excel列。由于每个Excel表有66k行限制，我不能这样做。我试着select多个工作表的范围，但我得到错误。

你如何把一个VBA插件，并作出安装程序？: 我已经写了一个VBA模块，安装一个插件button，以Excel。我想尽可能简单地将其部署在许多计算机上。目前，这些是我的步骤。将excel保存为* .xlsm 在我想要安装的计算机上打开文档将文档另存为扩展名（* .xlam），将其放入插件文件夹中转到选项>加载项>pipe理/转到> 点击我的joincheckbox 有没有办法使这个过程自动化？用vb写一些东西？

从Excel中获取图像的位置并将其显示在文本框中: 我有一个在VB6中的代码，显示来自excel的图像到picturebox中，这里是代码。 Dim appExcel As Excel.Application Dim xlsBook As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim img As Image Set appExcel = New Excel.Application Set xlsBook = appExcel.Workbooks.Open(Text1.Text) Set xlsSheet = xlsBook.Worksheets("Sheet1") Dim x As Excel.Shape For Each x In xlsSheet.Shapes x.Copy Picture1.Picture = Clipboard.GetData(vbCFBitmap) Text2.Text = x.Name Next 在图片框附近，我也有一个文本框，我的目标是显示图像的单元格位置。我怎样才能做到这一点？这是更新。我有一个像这样的excel格式。基于上面的代码，我可以显示图像从excel到picturebox为每个对象附近。我的问题是有可能得到他们下面的标签？更新。基于我正在使用什么格式，我尝试在每个图像中添加一个名为Image […]

replacestring中的奇怪或特殊字符: 我试图将Excel文件转换为SQL查询。我的问题是，我给的文件中有特殊字符。我不能取代他们CTRL + H，因为他们根本不显示在Excel文件中。当我写我的查询（无论是在UTF8或ANSI），他们显示。使用Ultra-Edit时，它们显示为HEX C2 92.使用utf8中的Notepad ++，它们显示为PU2。在ANSI中，它们显示为'。我怀疑这是一个撇号。顺便说一下，这是一个法国文件。到目前为止，我试图把它放在一个string，做这些操作，但没有任何工作。 Dim Line as String Line = Wb.Worksheets(1).Cells(LineNo, ColNo) Line = Replace(Line, "Â'", "''") Line = Replace(Line, "'", "''") Line = Replace(Line, "Â", "''") Line = Replace(Line, Chr(194) & Chr(146), "''") 'decimal value of C2 92 Line = Replace(Line, Chr(146) & Chr(194), […]

如何closuresvb6中所有活动的.xls文件: 我试过类似的东西： Set kitap = CreateObject("Excel.Application") If IsXlsOpen() = True Then kitap.Application.Quit End If ..但没有工作，所以我neeedfind如何closures所有的Excel文件，然后开始在VB6的我的程序编辑：这里完整的代码： Dim i As Integer Dim kitap As Object Dim strcnn As String Dim cnn As New ADODB.Connection Dim Cmd As New ADODB.Command Dim rs As New ADODB.Recordset Private Sub Form_Load() strcnn = "myconn" cnn.Open strcnn Cmd.ActiveConnection = cnn End Sub […]

Application.Username VB6等效: 我可以在Excel的VBA编辑器中使用Application.Username来返回当前用户的用户名。什么是在VB6中的等效？