Tag: vb6

在VB6 / VB.NET中显示Excel表格，使用不带excel菜单的Excel: 我有一个启用了macros的Excel工作表。我想显示Excel工作表里面一个VB6 / VB.NET表单没有Excel菜单标题，并执行表格内的Excel活动。请注意，我需要执行一些macros操作时，input一些单元格… 我的目标是创build一个独立的VB6 / VB.Net窗体，其中应显示excel单元格以执行marco操作。我试图寻找任何样本，但没有运气。应该是这样的… 任何人都可以提示我做到这一点？

使用VB6格式化Excel / CSV文件: 我有一个原始数据，将parsing使用VB6 ，只获得具体的数据，我已经得到的具体数据。我现在的问题是这个。我使用writeline将writeline数据写入另一个Excel / CSV文件。我的问题是这样的，我已经可以在CSV / Excel文件中写入数据，但是它只写在第一列，所以所有的数据都只写在第一列。有人可以帮助我，我怎么能在每列？例如，所需的第一行是在第一列，之后是第二行在第二列，以此类推。预先感谢您的帮助:) 下面是我的代码。 Dim i, ii, num As Long Dim ff As Integer Dim sText As String Dim itmX As ListItem Dim x, y As Integer Dim ex As Excel.Application Dim sheet As Excel.Workbook Dim Csheet As Excel.Range Dim wsheet As Excel.Worksheet, snum As Long […]

VBA Excelinput框运行时错误13types不匹配: 我有一个运行良好的macros。但是我遇到的问题是InputBox。当用户从input框中按下CANCEL或X时macros发生错误。用户最多可以input15个值进行search，input0即可开始search。我想让它更强大，所以我不会遇到这些错误。请帮忙。 Sub FindValues() Dim LSearchRow As Integer Dim rw As Integer, cl As Range, LSearchValue As Long, LCopyToRow As Integer Dim iHowMany As Integer Dim aSearch(15) As Long Dim i As Integer ' clear the sheets before it runs so to accurate number of funds opend. Sheet2.Cells.ClearContents Sheets("tier 2").Cells.ClearContents Sheets("tier […]

application.worksheet.function计算大于另一列的单元格数: 我需要你的帮助！我怎么能做一个条件，将列E的细胞数大于或等于列F，如果其中一列是零不计数 A | B | C | D | E | F ——–+——-+——-+——-+——-+——– A1021 | A10 | A | RX1 | 99 | 98 '——-> 1' A1021 | A10 | A | RX1 | 0 | 98 A1021 | A10 | A | RX1 | 99 | 98 A1021 | A10 | A | […]

编译错误找不到项目或库: 我不熟悉VB6，我想在新的环境（这意味着新的桌面）编译一个现有的项目，所以我错过了一些开发工具或引用来运行下面的代码？因为当我运行它指向的项目（date）。 ExcelSheet.Cells(2, 1).Value = "Printed As At " & ls_now If optCurrent.Value = True Then ExcelSheet.Cells(4, 1).Value = "Year : " & Year(Date) Else ExcelSheet.Cells(4, 1).Value = "Year : " & cboYear.Text End If 请帮助，万分感谢

在VB6中读取Excel文件: 当我没有在服务器上安装Microsoft Excel时，我将如何读取vb6中的excel文件。我正在尝试添加“Microsoft Excel 12.0对象库”的引用，但我看不到在引用中添加的对象。我应该下载什么文件或DLL文件，使其工作。 Dim xl As Excel.Application Dim xlwBook As New Excel.Workbook Dim xlSheet As New Excel.WorkSheet` 当我没有在我的系统上安装Excel时，我可以使用这个应用程序吗？任何帮助将不胜感激。

格式excel列显示小数位以零结尾的VB: 我有下面的VB6代码发送数据到一个数字列Excel格式显示两位小数，一切工作正常，除了当小数点结束为零EXCEL显示只有一个小数位如234.60显示243.6我怎么能显示零 Private Sub Command41_Click() Dim cno Dim tex Dim VatAmount As Double Dim MyexceL As Excel.Application Set MyexceL = New Excel.Application Set MyexceL = New Excel.Application MyexceL.Workbooks.Add MyexceL.Cells(1, 1).Value = "THC VAT Invoices " MyexceL.Cells(2, 3).Value = "D/O No. " MyexceL.Cells(2, 4).Value = "Date " MyexceL.Cells(2, 5).Value = "Clearing Agent " MyexceL.Cells(2, 6).Value = "VAT […]

如何在vb6的listBox中显示excel文件: 我试图在VB6中显示Excel文件，我试着下面的代码来显示它： Private Sub Command1_Click() Dim xlsApp As Excel.Application Set xlsTemp = New Excel.Application wbk = xlsTemp.Workbooks.Open = "C:\MANGO\Test.xls" 'xls file path List1.AddItem (wbk) 'add data wbk End Sub 但是，它返回了449错误所以，我该怎么做，才能使它像魅力一样工作。谢谢

需要通过vba代码编辑putty的标题栏: 我正在使用下面的vba代码打开一个button点击腻子屏幕。 TaskID = Shell("C:\putty.exe 173.194.127.210", vbMaximizedFocus) 当它打开一个新的屏幕时，标题栏将包含string“173.194.127.210 – PUTTY”。上面的代码打开一个新的屏幕时，我想通过vba代码将“173.194.127.210 – PUTTY”更改为“173.194.127.210 – HELLO”。任何人都可以分享这样做的代码？请注意，我不使用超级腻子。我可以手动执行以下步骤：右键单击打开的腻子屏幕的标题栏。点击更改设置点击窗口选项下的行为将窗口标题更改为173.194.127.210 – HELLO

Excel VBA和VB6打印机: 我有下面的代码，这个代码是用VB6编写的，但我无法打开窗体或检查任何引用。 Private Sub PopulatePrinterCombo(cmbDestination As ComboBox) Dim objPrinter As Printer 'a printer in the Printers collection object 'Add the printers to the combo box For Each objPrinter In printers cmbPrinter.AddItem objPrinter.DeviceName Next 'Set current selection to the default printer cmbDestination.Text = Printer.DeviceName End Sub 我目前正在复制代码到Excel VBAmacros，问题是Dim objPrinter As Printer代码，我不断收到一条错误消息，说：“用户定义的types没有定义”，我需要一个引用来添加VBA能够得到声明一个variables为“打印机”或什么的选项？我的第二个问题是，我不完全理解“打印机”在For Each objPrinter In printers行For Each […]