Tag: vb6
使用VB6 ADO将数据追加到Excel列
我正在testing从TextBox插入文本到Excel的示例VB6应用程序。 我想find列中最后一个使用的行，并且每当用户单击一个button时，在下一行添加txt1 TextBox的文本。 范围从C10到C49 。 最后一行填满后，我会提示用户打开新的Excel文件。 我无法做的追加部分。 下面是我试过的代码： Private Sub cmdUpdate_Click() Dim objConn As New ADODB.Connection Dim szConnect As String szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Excel\Format.xls;" & _ "Extended Properties='Excel 8.0;HDR=NO';" objConn.Open szConnect Dim xrow As Integer Dim lastRow As Integer lastRow = 10 xrow = 49 Do while lastRow <= xrow objConn.Execute "UPDATE […]
VB6中logging集的透视表
我有一个数据透视表的Excel文件，我正在寻找与logging集中的数据使用。 到目前为止，这是我所拥有的 Dim xlApp As Excel.Application Dim xlWbook As Excel.Workbook Dim xlWSheet As Excel.Worksheet Dim xlptCache As Excel.PivotCache Dim xlptTable As Excel.PivotTable Dim pivotRecordSet As ADODB.Recordset 'Open Excel File and set data for pivotRecordSet With xlWbook Set xlWSheet = .Worksheets("Sheet1") Set xlptCache = .PivotCaches.Add(SourceType:=xlExternal) 'Trying this gives me an Application-defined or object-defined error 'Set .PivotCaches.item(0).Recordset […]
使用计时器来获得Excel标题
我有以下代码来获得当前打开的Excel文件的标题这个代码工作正常。 如果标题改变，则每10秒钟使用计时器，然后在列表1中添加新标题。 所以问题是否有任何方法或事件来检测标题是否改变，然后我的代码工作，否则不工作不检查。 定时器检查每10秒我的电脑工作缓慢，如果我运行这个代码 Private Const GW_HWNDNEXT = 2 Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, _ ByVal wCmd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal […]
通过Microsoft Visual Basic 6.0debuggingExcelmacros
我有执行各种Excelmacros的VB6代码。 我在VB6和Excelmacros中设置断点，然后在VB6应用程序中开始debugging。 当它到达（断点）执行macros的语句时，它跳过命令并继续遍历VB6代码。 我期待它跳转到Excel，并开始debuggingExcelmacros。 是否有一些configuration或技巧，debugging从VB6应用程序正在调用的Excelmacros？
在vb6打开.csv文件与Excel中，但日/月切换，为什么？
我通过vb6开发程序从.csv文件读取数据并将其保存到数据库中。 我用excel应用程序打开.csv文件阅读，但在列date数据是date和月份切换。 objExcelAppl.Workbooks.Open FileName:=location, Delimiter:=",", ReadOnly:=False, Format:=xlCSV ODate = objExcelAppl.ActiveSheet.Cells(RowOffset + i, 4).Value 例如。 数据：“11/01/2014” 但excel应用程序阅读：“01/11/2014” 为什么？ 我该怎么办？
将ActiveX链接到Excel
希望有人能帮助！ 我在VB6编程，正在尝试写一个指标的ActiveX控件。 该指标应改变颜色相对于Excel打开工作簿单元格是真或假。 该指标应该是自动更新，即指标需要链接生活到Excel单元格。 然后，我可以将几个指标c / w链接放置到用户窗体上的不同单元格。 工作簿在用户窗体中打开并testing，对象引用设置正确。 我不知道如何将指标链接到Excel单元格。 这是我正在尝试的一个更大的项目的一部分。 其他控制如条形图，开关等，如果我能得到第一个工作。 提前致谢
SetVB6列表框Rowsource与Excel范围
我正在尝试设置Excel范围的VB6表单列表框。 我意识到我可以使用范围数组设置列表，但我想使用Rowsource，因为它需要一些格式，如果我做它作为Rowsource。 列表框中有6列。 我得到运行时错误'380'，无法设置行来源属性。 无效的财产价值。 这是我的代码： lastRow = wb.Sheets("Journal").Range("D20000").End(xlUp).Row lstJrnl.RowSource = wb.Sheets("Journal").Range("D4:I" & lastRow).Address 我在这里做错了什么。 谢谢。
将数据从Visual Basic 6传输到新的Excel工作表
祝大家好日子！ 我需要一些帮助，我怎样才能将数据从VB6传输到一个新的Excel工作表，例如，我想能够select以前创build的Excel文件，添加一个新的工作表，并将数据保存到它。 以下是我目前与我的项目有关的内容： Public Sub ExptExcel() Dim ADAExcelExpt As String Dim conn As New ADODB.Connection Dim RS As ADODB.Recordset With CommonDialog1 .CancelError = True .InitDir = "c:" .DialogTitle = "Save Excel File" .Filter = "Excel files (*.xls)|*.xls|Excel Files (*.xlsx)|*.xslx" .Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames On Error Resume Next 'trap the cancel error .ShowOpen […]
如何分配行到Excel中的列表
我想把这项工作分配给可以从事这项工作的人数。 从左边的表（原始数据）中，我将input可用工作人员的姓名。 于是，右桌，这5人就被分配了3人。 每个人的工作是由用户决定的（如果自动计算分配给每个人平均分配得多，例如10个工作量到5个人= 2个工作量，每个100WL到5P = 20WL等等希望你得到的主旨） 我不熟悉excel，它可以做的过程和计算，但是我对VB6很熟悉，因为它似乎是excel的后端编码，所以我将沿着编码path执行该命令。 如果可能的话，如果能够给我一个excel样本，我将不胜感激，所以我可以学习，编辑和调整一点，因为我是新来的（第一次）在Excel中使用VB6。
Visual Basic 6将特殊的波兰语字符导出到Excel
我有从VB6程序导出数据到Excel的麻烦。 我无法得到波兰特殊的信件。 我得到奇怪的符号。 我试图使用chr（）函数，但没有0-255可能性给我所需要的。 这个问题怎么解决？
