Tag: vb6
当使用vb6closures对象时，不允许操作
我有一个从存储过程带来的数据的Excel文件，它的工作原理是完美的，现在我已经改变了存储过程的另一个与旧的相同的参数，但我得到一个错误：“操作不当对象closures时允许“，在循环中：Do While not rsData.EOF 这里发生了什么事情： Set dbConnection = New ADODB.Connection dbConnection.ConnectionString = connStr dbConnection.ConnectionTimeout = 60 dbConnection.Open Set Cmd = New ADODB.Command Cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc Cmd.ActiveConnection = dbConnection Dim myrealenddate As Date 'Create 2 output parameters Set pm1 = Cmd.CreateParameter("@DateIni", adDBDate, adParamInput, 15, CDate(Sheet1.TextBoxfechainiG)) Set pm2 = Cmd.CreateParameter("@DateEnd", adDBDate, adParamInput, 15, CDate(Sheet1.TextBoxfechaendG)) 'Append the output […]
MS Office在使用Microsoft.Jet.OLEDB提供程序时是否必需？
我正在尝试读取一个可以使用ADO的Excel文件。 我的问题是，当使用Jet.OLEDB提供程序读取Excel文件时，是否需要安装Office？ 目前我只在装有办公室的电脑上testing，这就是为什么我在问。编程语言是VB6。 谢谢。
如何使用C＃从Excel工作表中删除VB代码？
有谁知道如何删除所有的 VB代码forms使用C＃的Excel工作簿？ 此代码不起作用。 它删除第一个（最后一个）VBComponent，但在第二个上升ArgumentException。 VBProject project = workbook.VBProject; int componentsCount = project.VBComponents.Count; for (int i = componentsCount; i >= 1; i–) { VBComponent component = project.VBComponents.Item(i); project.VBComponents.Remove(component); } 有什么build议么？ 🙂
用VB6生成Excel文件
我正在寻找关于这个具体问题的build议： 在Visual Basic 6（VB6）中生成Excel文件（常规XLS，而不是XLSX）的最快捷方式是什么？ 非常感谢。
VB6 / VBA不允许加载COM加载项
我有一个VB6 / VBA应用程序挂钩到Excel并加载工作簿。 它已经工作了很多年了。 我们现在升级到Excel 2010，并遇到了一些问题。 在排除故障后，似乎如果closuresPowerPivot COM加载项，则可以像以前一样运行该程序，而不会出现问题。 当我寻找这个的确切原因，我想看看我是否可以closures只是为我的应用程序的加载项。 我像这样加载Excel： Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False 在testingExcel工作簿，我有这个代码来列出加载项。 但是只有“Excel加载项”是唯一被列出的。 “COM加载项”不列出。 Sub ListAddIns() Dim CurrAddin As Excel.AddIn Dim r As Long Dim ws As Excel.Worksheet Set ws = ActiveSheet Cells.Select Selection.ClearContents Range("A1").Select r = 1 For Each CurrAddin In Excel.Application.AddIns ws.Cells(r, 1).Value = CurrAddin.FullName ws.Cells(r, 2).Value […]
VB6打印通过Excel和select两台打印机之一
我广泛地search了解决问题的方法，但是我担心它坐在我的前面，我看不到它。 问题：我有一个调用excel的VB6应用程序，并使用一个excel文件作为数据库来从第二张表中拉取地址，并将地址放入我需要打印的“地址标签”中。 这大大减less了地址中的打字错误，并使我可以通过自动创buildPALLET X OF X来加速这一过程。所以，只要默认打印机是托盘标签需要打印的打印机上。 我想在这个程序中join第二个样式标签，我已经成功完成了这个任务。 该程序将调用并填写所有必需的信息，并根据select的选项，它将打印两个Excel模板之一。 我遇到的问题是，我不能为我的生活得到它打印到一台打印机的大标签，同时也打印到小标签打印机的另一个标签。 我已经成功创build了一个独立的程序，我可以打印到任何打印机，但我不能让我的标签应用程序来做到这一点。 我有一种感觉与Excel的应用程序设置或东西有关。 在我认为是正确的位置（command3button）程序中列出了独立程序使用的打印机名称， Option Explicit Dim SelectAll As Integer Dim location As String Dim location2 As String Dim loadedlist As Integer Dim big_small As String Dim prt As Printer 'trying to preload excel Dim excel_app As Excel.Application Dim workbook As Excel.workbook Dim sheet As Excel.Worksheet Dim […]
在我的VB6项目中将Excel 2003的引用replace为Excel 2010
我有一个VB6应用程序运行多年。 此应用程序过去总是引用Excel 2003来创buildXLS文件。 现在我们想使用Excel 2010代替2003.所以我在一台独立的开发计算机上安装了Excel 2010，并加载了我的vb6项目。 运行应用程序时，出现“我的Microsoft Excel 10.0对象库”丢失的错误。 这是真实的，因为只有Excel 2010安装在这台计算机上，没有更多的Excel 2003。 问题是，当我想要正确的引用时，我没有find任何“Microsoft Excel 14.0对象库”或类似的东西来代替这个引用。 任何build议？ 谢谢。
权限被拒绝使用Excel 12.0 Library＆VB6打开Excel文件
我以前曾多次在我的VB6应用程序中使用过Excel，并且从来没有遇到这样一个奇怪的问题，试图完成一些非常简单的事情。 我试图打开一个Excel（xls或xlsx）文件，并通过值读取，你可能会看到。 当我尝试打开该文件时，出现错误70（权限被拒绝）错误。 奇怪的是没有任何其他的开放实例（在任务pipe理器应用程序或进程中）。 没有人试图访问该文件。 我可以在没有任何警告的情况下在Excel中打开文件，也可以打开/读取/closuresVB6中的基本文件，并input“Open File for Input as＃1”语法。 我可以使用Kill（）删除文件，所以它不能成为一个目录的权限问题 – 请帮助 – 我无所适从！ Dim xlApp As New Excel.Application Dim xlWBook As Excel.Workbook 'Error Occurs Here Set xlWBook = xlApp.Workbooks.Open(File) Dim xlSheet As Excel.Worksheet Set xlSheet = xlWBook.Sheets.Item(1) Dim y As Integer For y = 1 To 99999 If Len(xlSheet.Cells(y, 1)) > 0 Then […]
Excel ADO RecordSet具有数值单元格的空值
我试图从Excel文件导入一些数据来处理，但我遇到了数值单元值的问题。 我有一些列将有价值的一些都是数字，而其他值可能是数字和非数字值（没有特殊字符，只是AZ字母）的混合。 要将数据导入logging集，我正在执行以下操作 Set oconn = New ADODB.connection oconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & excelFile & ";" & "Extended Properties=""Excel 8.0;HDR=YES;""" sTableName = "[sheet1$]" sTableName = "select * from " & sTableName Set oRs = New ADODB.Recordset oRs.Open sTableName, oconn, adOpenStatic, adLockOptimistic 当我正在读取logging集的值时，数值在混合格式的列中显示为空白。 有什么办法让logging集只读取所有值作为文本或另一种方式来读取Excel文件，以避免这个问题？
在Excel 2013中提取VB6
我有几个应用程序写在传统的VB6，提取内置的代码创buildEXCEL提取。 我们正在从Excel 2007移动到Excel 2013，我遇到了一些问题。 我正在运行Windows 10.在2007年，这是我的声明和Set语句，曾经工作得很好… Option Explicit Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheetA As Excel.Worksheet 这些我在模块的顶部。 在我的function，写入数据提取我做到这一点… Set xlApp = New Excel.Application Set xlBook = XlApp.Workbooks.Add Set xlSheetA = xlBook.Worksheets.Add 当它到达XLBook – 它挂起，一切停止工作。 我收到一个错误： 此操作无法完成，因为其他程序正忙。 select“切换到”来激活繁忙的程序并纠正问题。 现在，在我运行我的提取之前，我确保Excel不在后台运行，检查我去任务pipe理器 – > 进程，并删除它，如果它在那里。 我究竟做错了什么？ 我应该如何改变我的代码？ 编辑屏幕截图：屏幕显示不显示我在我的应用程序中的代码。 这是一个新的项目，只是为了显示我正在使用的所有代码。
