我可以使用查询表:
var sheet = (_excel.ActiveSheet as Excel.Worksheet);
var rng = sheet.Range("A1");
var qt = sheet.QueryTables.Add("ODBC;...", rng, "SELECT * FROM myTable");
qt.Refresh();
这将正确地导入数据(例如,日期实际上显示为日期,等等)。但是,当我尝试访问ListObject来应用TableStyle时,我得到了一个异常。
现在如果我添加一个列表对象,如下所示:
var
我希望在Excel (SQL查询窗口)中执行此操作,通常只执行select语句。我应该把它变成一个存储过程,然后在Excel中执行tat吗?
BEGIN TRY
drop table GlobalShop.dbo.v_order_hist_dtl_Quote
END TRY
BEGIN CATCH
END CATCH
BEGIN TRY
drop table GlobalShop.dbo.v_order_lines_Quote
END TRY
BEGIN CATCH
END CATCH
select * into GlobalShop.dbo.v_order_
我正在将一组csv文件作为poweryQuery表,在Excel2016Pro工作簿中以特定顺序运行。我在QueryTable After_Refresh事件中调用一个外部过程After_Refresh,以向一些ListObject QueryTables添加一个额外的列。两天前就开始工作了,但现在不行了。代码保持不变。
类clsQR代码:
Option Explicit
Private WithEvents QTable As Excel.QueryTable
Private pMsg As String
Private colCollection As New Collection
P
每天我都通过QueryTables在Excel中访问不同的FTP文件。我不想在Excel的连接中维护这个查询。
我试图找到一种不用保存连接就可以使用QueryTables下载该文件的方法。但我没找到办法。
现在我使用QueryTables.add()并在使用之后删除它,但是连接没有取消。我的代码:
Dim qt as Variant
Set MySheet = Sheets("MyTempSheet")
Set qt = MySheet.QueryTables.Add(Connection:=path, Destination:=Cells(2, 1))
With qt
我试图使用Python comtype库在excel电子表格中创建一个QueryTable,但得到了一个相当不具信息性的错误...
在vba中(在工作簿中的模块中),以下代码可以很好地工作:
Sub CreateQuery()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ws As Worksheet
Dim qt As QueryTable
Set ws = ActiveWorkbook.Sheets(1)
Set con = New ADODB.Connection
我正在尝试编写一个vba来刷新本地数据透视表。因为数据透视表从power查询获得数据,该查询链接到密码锁定的excel文件。在过去的几天里,我设法编写了一个vba来打开外部excel文件来刷新我的查询。
刷新后,我的子例程将再次关闭excel文件,这样我的团队中的其他人就可以访问它,而无需我阻止该文件。然后,我想刷新链接到查询的所有数据透视表。因为它链接到密码锁定文件,所以我不想再次刷新查询。在您的RefreshQueries建议中,有这样一段代码:
Sub RefreshQueries()
Dim ws As Worksheet
Dim qt As QueryTable
我从找到了这个VBA代码,Iam试图将数据从Google导入到Excel中,但是如果周围的单元格包含不同的类型(数字/文本),则不会检索一个或多个值,有什么解决方案吗?这是!在谷歌的表格和结果在excel ()!
Sub QueryGoogleSheets()
Dim qt As QueryTable, url As String, key As String, gid As String
If ActiveSheet.QueryTables.Count > 0 Then ActiveSheet.QueryTables(1).Delete
Acti
我有一个非常令人沮丧的问题,每当我从RefreshAll()调用Microsoft.Interop.Excel时,当我在excel中打开工作簿时,它不会刷新数据,我必须手动单击excel中的refresh按钮……我甚至尝试过通过vba调用refresh,但它仍然不刷新数据.我总是被提示:
“PivotTable报告是在没有基础数据的情况下保存的。使用刷新数据命令更新报表。”
尽管我已经调用了“刷新所有命令”。
public void applyMacro(string excelFile)
{
var excelApplication = new Microsoft.Offic
我是VBA新手,我正在尝试用以下代码触发BeforeRefresh和AfterRefresh事件:
在一个名为clsQuery的类模块下,我有:
Option Explicit
Public WithEvents MyQuery As QueryTable
Private Sub MyQuery_AfterRefresh(ByVal Success As Boolean)
If Success Then MsgBox "Query has been refreshed."
End Sub
Private Sub MyQuery_BeforeRefresh(Cancel As
我正在构建一个基于Excel的工具,它必须与Windows和Mac兼容。此工具需要将数据从SQL Server拉入和推送到SQL Server。我已经编写并测试了一种方法,它可以在Windows中工作,也可以在Mac 中工作(尽管这个链接与Excel2011有关):
On Error GoTo err1
Dim connstring As String
Dim sqlstring As String
Dim dArr As Variant
Dim qt As QueryTable
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets(1)
con
我有一个excel文件,其中的数据作为字符串存储在不同的列中。如果条件在列的单元格中满足,则我希望应用条件>=并将文本颜色更改为红色,而不更改标题背景色。
数据:
条件:,如果列Qt._For_1s中的任何值大于或等于900.0,则该特定值的字体颜色应变为红色(不干扰标题颜色),否则可以是绿色或保持白色背景相同的黑色,并保存为xls文件。
注释:这些列值被保存为字符串,因为它们是这样需要的。我尝试过几种条件格式,但无法解决我的具体问题。
def highlight_Qt(row):
ret=["" for _ in row.index]
if (row.
我有一个excel工作簿,里面有大约100个SQL连接表,这些表在不同的工作表上,每周都会刷新。我当前的代码是一个循环宏(如下所示),它遍历每个工作表并刷新每个表。
Sub RefreshLoop()
Dim wks As Worksheet
Dim qt As QueryTable
Dim lo As ListObject
For Each wks In ActiveWorkbook.Worksheets
For Each lo In wks.ListObjects
If lo.SourceType = 3 Then
With lo.Qu
在一个更大的Excel应用程序中,(25张工作表,50个命令按钮,5000行代码,18个用户表单...大小为12 MB) ...我们以txt文件的形式从服务器加载表格,并使用标准过程将这些txt_files重新转换为excel数据。通过宏,我们在下载后删除所有的查询表和连接。
每件事都运行得又好又快,但是主页现在变得越来越慢了。即使打开工作簿也要花费越来越多的时间,而大小保持不变。
不知何故,我有一种感觉,从txt_files传输的数据的剩余部分没有被删除:
Dim ws As Worksheet
Dim qt As QueryTable
For Each ws In ThisW
我正在尝试这个简单的Sub (在Excel 2019)从一个特定的雅虎财经页面导入表格。
它适用于其他网站,但对于Yahoo Finance,我一直收到相同的消息:"This Web query returned no data. To change.“并且不提取任何数据。
我想不出原因。
Sub ImportTable()
Dim ws As Worksheet
Dim qt As QueryTable
Dim qurl As String
qurl = "https://finance.yahoo.com/quote/MSFT/key-statistics?p=MSF
我正在尝试将文本文件自动导入到Excel中,但遇到了一些问题。 我在这里使用banana作为URL的动态方程,但我失败了。 http://regsho.finra.org/regsho-September.html Option Explicit
Public Sub testing()
Dim qt As QueryTable
Dim ws As Worksheet
Dim banana As String
Set ws = ThisWorkbook.Worksheets("Sheet1")
banana = Range("
我的项目有一个问题,当没有互联网连接时出现此消息框我尝试使用特殊情况编号的错误句柄,但我的消息框将出现在下面的消息之后,这是我不喜欢的,因为它包含我的数据库信息。
Function GetTestConnectionString() As String
'==================== ' Connection to SQl Server '==============
GetTestConnectionString = OleDbConnectionString("servername", "db name",