Tag: vb6

使用VB6将Excel数据导入SQL: 我完全不熟悉Visual Basic，现在我需要一个完全在VB6中构build的程序，并添加从Excel文件中批量导入大量logging到当前SQL数据库的function。我在网上find的所有例子都是令人困惑的，并且需要对文件名进行硬编码（例如，使用文档As New Spreadsheet（）document.LoadFromFile（“SimpleReport.xls”）），但是这需要由用户在任何时候调用他们得到一组新的logging，所以我需要在导入时指定的Excel文件名。我如何使用VB6从Excel导入到SQL？我可以为excel文件名创build一个variables，或者文件名的string值是否需要硬编码？如果我可以做一个variables可以/我应该添加设置并得到它以指定文件名？谢谢

Microsoft Office Access数据库引擎找不到对象'sheet1 $': 所以，我在vb6中创build了一个简单的应用程序。这是将Excel Sheet1内容显示到数据网格视图中。 If CommonDialog1.FileName = "" Then Label2.Caption = "No file selected." Else file_name = CommonDialog1.FileName Label2.Caption = file_name End If Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= file_name;Extended Properties=Excel 12.0;" If cn.State = adStateOpen Then MsgBox "Connected to Excel File" End If strQuery = "SELECT * FROM […]

使用VB6列出并运行Excel工作表macros: 我正在尝试使用vb6访问存储在Excel工作簿中的macros。我打开一个包含几张纸的工作簿。其中一些有macros。有什么办法可以列出所有的macros（名称），并给予用户cnahce从列表中选取一个或多个macros并运行它们？同样，我希望能够列出button（放置在工作表上的命令button）而不是内置的工具栏button，并最终点击它，再次向用户提供button的名称（或最好的标题）。提前感谢您的帮助！

Excel自动化错误＃1004对象'〜'的方法'〜'失败: 使用VB6做一些Excel自动化我有这个代码在过去5年以上运作良好。它基本上遍历加载项，如果它检测到一个特定的一个，然后它发出一个消息给用户。 Public xlapp As Excel.Application Set xlapp = GetObject(, "Excel.Application") Dim CurrAddin As Office.COMAddIn For Each CurrAddin In xlApp.COMAddIns 2 LogMe "==>COM Add-In: " & CurrAddin.Description 'detect the PowerPivot add-in 3 If CurrAddin.Description = "PowerPivot for Excel" And CurrAddin.progID = "Microsoft.AnalysisServices.Modeler.FieldList" Then 4 LogMe "==>COM Add-In 'PowerPivot for Excel is set to load=" & […]

VB6 excel文件没有保存: 基本上，标题。我打开并对.csv进行了修改（如果有人能正确保存文件，我可以正常使用excel文件）（特别是autofit和bold），但是当我打开文件时，没有任何改变。任何人知道为什么我真的不知道我在做什么：p和互联网似乎没有任何有关的信息。作为一个侧面说明，如果.exe在运行时崩溃，然后我打开Excel文件，它的格式正确。代码如下： Dim spreadsheet As Excel.Application Set spreadsheet = CreateObject("Excel.Application") spreadsheet.Workbooks.Open _ FileName:=exportPath, _ ReadOnly:=False Call spreadsheet.ActiveSheet.UsedRange.Select Call spreadsheet.Selection.Columns.AutoFit spreadsheet.Selection.Font.Bold = True spreadsheet.ActiveWorkbook.SaveCopyAs (App.Path & "\" & "THISONE" & gc_AppName & "EXPORT" _ & Format$(Now, "yyyy/mm/dd/hhmm") & gc_ExportExtension) MsgBox (spreadsheet.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value) Call spreadsheet.SaveWorkspace 'Call spreadsheet.ActiveSheet.Save Call spreadsheet.ActiveWorkbook.Save Call spreadsheet.ActiveWorkbook.Close(True) Set spreadsheet […]

Excel互操作macros输出/参数: 我已经inheritance了启动Excel的VB6应用程序，打开一个工作簿，并间隔运行一个macros。该macros通过其参数返回值。在我尝试使用interop将其转换为C＃，我可以成功运行macros，但是这些参数值不会返回。在下面的代码中是否存在缺失/不正确的内容，或者仅仅是不支持？ VBAmacros： Sub Foo(bar As Long) bar = 5 End Sub C＃代码： void CallFoo() { // Declared as an object to avoid losing the value in auto-boxing // The result is the same if declared as int Object bar = 0; m_application.Run(m_fooCommand, a); Console.WriteLine(a); // a is always 0 } 这个（大致）相当的VB6代码获得返回值就好了。 Dim […]

从VB6读取XLS文件: 我如何从VB6读取XLS文件？我不想使用ADO或自动化。 ADO不会为我的特定XLS文件工作，因为它猜测前几行数据中列的数据types。自动化不在了，因为Excel可能没有安装在机器上。我希望基于经验的build议 – 我知道如何谷歌 🙂

用VBJSON遍历嵌套对象: 我正在尝试通过VBA连接到SmartSheet API以将内容拖入Excel工作表中。我发现VBJSON库已经帮了我一些，但我正在努力迭代通过对象和拉特定的值。我想要访问每个行的“Value”属性的内容，然后对后续行执行相同的操作。我最大的问题是，我不知道这个VBJSON库如何工作，因为我找不到任何文档，只有几个例子，他们处理相对简单的JSON示例。期望的输出第1行第1列内容| 第1行第2列内容第2行第1列内容| 第2行第2列内容 JSON { "id": 1, "name": "Sheet Name", "columns": [ { "id": 1, "index": 0, "title": "Title of Column", "type": "TEXT_NUMBER", "primary": true }, { "id": 2, "index": 1, "title": "Title of Second Column", "type": "TEXT_NUMBER" }, ], "rows": [ { "id": 1, "rowNumber": 1, "cells": […]

在Excel中超时，在SSMS中立即执行: 在ADODB.Connection/Recordset excel中有一个奇怪的问题。我必须承认，我不熟悉VBA / VB6和ADO。我在Excel中使用函数来从SQL-Server中的列返回价格。所以我称之为标量函数。这个函数有三个参数，只有第一个是必须的。如果我提供第二个（ datetime ）参数，我得到一个timout错误。这是完整的function，虽然我认为它不相关： Const connStr As String = "Connection-String" Private conn As ADODB.Connection Public Function GetClaimPriceByPartNumber(partNumber As String, Optional claimSubmittedDateEnd As String = "", Optional currencyName As String = "EUR") As String If conn Is Nothing Then Set conn = New ADODB.Connection conn.ConnectionString = connStr End […]

从VBA执行SQL Server SP – 参数错误: 在从Excel / VBA调用SQL Server存储过程时，出现错误“参数types错误，超出可接受范围，或者彼此冲突”。无法弄清楚如何从VBA调用？存储过程参数 CREATE PROCEDURE [dbo].[sp_Productivity_GetIndividuals] ( @startDate DATE, @endDate DATE) …. VBA代码 Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command With cmd .ActiveConnection = con .CommandText = "sp_Productivity_GetIndividuals" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@startDate", adDate, adParamInput, , "3/1/2014") .Parameters.Append .CreateParameter("@endDate", adDate, adParamInput, , "3/31/2014") Set rs.ActiveConnection = .Execute End With