Tag: vb6

如何使用OpenOffice Spreadsheet从Excel文件中获取图像

我有一个代码，从Excel中导出图像到一个图片框，在这里。 Dim appExcel As Object Set appExcel = CreateObject("Excel.Application") appExcel.Visible = False Dim xlsBook As New excel.Workbook Dim xlsSheet As New excel.Worksheet Dim rowlocation As Integer Dim columnlocation As Integer Dim celladdress As String Set xlsBook = appExcel.Workbooks.Open(Text1.Text) Set xlsSheet = xlsBook.Worksheets("Sheet1") Dim x As excel.Shapes For Each x In xlsSheet.Shapes x.Copy Picture1.Picture = Clipboard.GetData(vbCFBitmap) […]

Visual Basic 6中的Excel – 如何用平滑线创build图表？

在Excel 2016中，在（右键单击图表上的行）>格式化数据系列>平滑线（平滑线）时，会出现一个选项。 通过Visual Basic 6创buildExcel图表时，是否有任何方法来启用此选项？ 此链接文档在Visual Basic for Applications中的选项，但我没有find任何用于Visual Basic 6： https : //msdn.microsoft.com/en-us/library/office/ff195315(v=office.14).aspx 这里是我在Visual Basic 6中创build图表的代码： Dim xlApp As excel.Application Set xlApp = New excel.Application Dim xlWkb As excel.Workbook Set xlWkb = xlApp.Workbooks.Open("D:\Documents\Book1.xlsx") Dim xlSht As excel.Worksheet Set xlSht = xlWkb.Worksheets(1) Dim xlChart As excel.Chart Set xlChart = xlWkb.Charts.Add xlChart.ChartType = xlLine xlChart.SetSourceData xlSht.Range("A1:B5"), […]

如何将SERIESSUM函数转换为VB6？

在已故的Frank Kabel撰写的Excel网站Daily Dose上 ，有一些公式可以代表ATPfunction。 不是一个Excel大师，我正在努力将一个（到目前为止！）转换为VB6。 （为什么我这样做，我可能会涉及一旦NDA用完。） 我遇到的问题是SERIESSUM的代码， =SUMPRODUCT(coefficients,x^(n+m*(ROW(INDIRECT("1:"&ROWS(coefficients)))-1))) 现在，SUMPRODUCT和ROWS函数已经能够相当简单地渲染了 Public Function SUMPRODUCT(a1 As Variant, a2 As Variant) As Double Dim dRes As Double Dim dVal As Double Dim i As Long If LBound(a1) = LBound(a2) And UBound(a1) = UBound(a2) Then For i = LBound(a1) To UBound(a1) dVal = a1(i) * a2(i) dRes = dRes + […]

Visual Basic 6.0和MS Excel 2003

是否有任何工具或代码，使我能够在Visual Basic 6.0窗体中显示Excel 2003表单“或其一部分”，以便它可以在vb 6.0运行时环境中编辑？

VB和C ++ ActiveX控件以不同的方式保存其信息，如何实现C ++ ActiveX控件replaceVB ActiveX？

背景 有一个由VB创build的旧的ActiveX控件。 我将这个ActiveX控件添加到我的Excel工作簿并设置了一些属性。 当这本书被保存时，这些属性被保存了。 具体来说，它们保存在使用VB代码中的PropertyBag的UserControl_WriteProperties函数中。 所以这些属性一直存在于工作簿中。 我的任务 我必须使用C ++创build一个新的ActiveX控件，以便与旧版本兼容。 我需要所有信息保存在我的旧Excel工作簿中的ActiveX控件中。 所以，我实现了IPersistPropertyBag到我的ActiveX控件。 我的期望是，当我打开我的旧Excel工作簿时，必须通过PropertyBag正确检索所有信息。 问题 我发现我的Excel工作簿中保存的信息是stream格式。 我可以实现IPersistStreamInit到我的新的ActiveX控件，但我不明白在我的Excel工作簿持续stream的格式。 所以，我无法检索我的Excel工作簿中保存的信息。 我不知道为什么这些信息是以Stream格式保存的，尽pipe它们是通过VB代码中的Propertybag保存的。 题 在这种情况下有没有办法让所有的信息在ActiveX控件中保留？ 我已经find了两天，但我找不到方法。

迭代通过Excel工作表名称，当办公室没有安装使用vb6

由于ACE.OLEDB提供程序，我可以读取没有安装Excel的Excel表格。 我也可以使用下面的代码遍历工作表，但是如果我没有弄错的话，它需要安装office： Set xlApp = CreateObject("Excel.Application") Set wb = xlApp.Workbooks.Open(txtExcelFile, ReadOnly:=True, editable:=False) If wb.Worksheets.Count = 0 Then MsgBox "Excel file contains no worksheets" GoTo SubEnd End If Dim i As Integer For i = 1 To wb.Worksheets.Count cboWorksheet.AddItem (wb.Worksheets(i).Name) Next 我希望能够查询Excel表格来填充一个下拉列表，但即使办公室没有安装，我可以这样做吗？ 为了解释我们目前的情况，我已经为我们的crm构build了一个dynamic导入器，通常我们通过他们的服务器更容易访问公司，与客户端pc相比，办公室安装的可能性更小。 所以我想在导入一个excel文件的时候不要完全依靠office。 当然，这不是一个主要的function，我可以将工作表名称存储为文本字段，但如果可以select相关的工作表名称，则会更好。 可以这样做，并在VB6？ 谢谢

VB – 将串行数据分割并分别存入Excel

我有一个forms为“X0507Y0512Z0413”的数据串。 我使用VB从pic微控制器读取数据，并使用在web上发现的VB脚本将数据加载到excel中。 我可以在上面的表单中将第一行数据放到电子表格的第一个单元格中。 不过，我希望将这个string分成三列X，Y和Z，并从每个variables的开始处放下字母。 它也必须每次读取长达20秒的数据，所以每个值都需要被附加到前一个。 这是我的VB脚本到目前为止，我已经尝试了Split（）命令并收到错误13types不匹配。 Private Sub CommandButton3_Click() Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 – COM4 Dim lngStatus As Long Dim strData As String Dim xyzData As String intPortID = 4 lngStatus = CommRead(intPortID, strData, 1) xyzData = Split(strData, "X""Y""Z") Range("A2,B2,C2").Value = xyzData End Sub 我是一个总新手，所以这可能是一个相当简单的修复，所以如果看起来微不足道的道歉。 任何build议将是伟大的。 SJ […]

从Excel删除工作表似乎不工作

我正在尝试使用VB6replaceExcel电子表格中的最后一个工作表。 由于删除最后一张工作表是不允许的，我一直在尝试添加一个临时工作表，删除一个我不想要的，replace旧的，然后删除临时工作表，如下所示： Set temporary_sheet = mwbkBook.Worksheets.Add temporary_sheet.Name = "NameThatIsUnlikelyToExist" ' Error Here. For Each lSheet In mwbkBook.Worksheets Select Case lSheet.Name Case "SheetToReplace" Application.DisplayAlerts = False lSheet.Delete End Select Next lSheet Set mwshSheet = mwbkBook.Worksheets.Add mwshSheet.Name = "SheetToReplace" ' Fill in mwshSheet For Each lSheet In mwbkBook.Worksheets Select Case lSheet.Name Case "Sheet1", "Sheet2", "Sheet3", "NameThatIsUnlikelyToExist" Application.DisplayAlerts […]

在公式中插入公式返回“#NAME？”

在Excel中插入公式时遇到问题。 正如你可以看到一旦生成的Excel，公式是这种格式（'#NOME？'），但它是正确的！ 用鼠标点击它实际上你看到了正确的公式。 要input公式我这样做： xlsSheet.Cells(5, 5) = "=SOMMA(H1:H7)" 有另一种方法吗？

VB6中的excel对象

有没有人知道一个很好的在线资源在VB6使用ole excel对象（embedded工作簿，工作表等）的详细信息？ 我正在维护一个大量使用这些控件的应用程序，而且我很难让它们为这个程序的用户正常工作。 我能在网上find有关ole excel控件的问答分散的部分是非常有限的，不是很确定。 很明显，我已经读过MSDN上的内容，但是我没有发现它非常有用，所以我想find另一个很好的参考资源。 谢谢