Tag: VBA的Excel的VBA

LoadImage PNG在excel vba中形成image1.picture控件，黑色背景

我有加载PNG图像到图片控制的代码 Option Explicit Option Private Module Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type PICTDESC Size As Long Type As Long hPic As Long hPal As Long End Type Private Type GdiplusStartupInput GdiplusVersion As Long DebugEventCallback As Long SuppressBackgroundThread As Long SuppressExternalCodecs […]

VBA代码中的SQL语法

有没有一种特定的方法来把SQL指令放在VBA代码中？ 我想将SQL查询放入VBA代码，但如果我这样做查询不起作用。 同样的查询工作正常，如果我把查询指令在范围（“A1”），并在代码中引用它。 有没有办法在VBA代码中build立一个查询，以便它工作正常？ 特别是当我添加WHERE子句时出现问题。 Sub CreateQueryTableWithParameters() Dim qryTable As QueryTable Dim rngDestination As Range Dim strConnection As String Dim strSQL As String With Sheets("Sheet1") .Activate .Range("A:BY").Clear End With ' Define the connection string and destination range. strConnection = "ODBC;DSN=RDBWC;UID=;PWD=;DBALIAS=RDBWC;" Set rngDestination = Sheet1.Range("A1") ' Create a parameter query. strSQL = "SELECT *" strSQL = […]

Excel / VBA：如何粘贴正确的string格式的SQL查询

我一直在记事本中写一些相当长的SQL查询，然后将它们粘贴到我的VBA代码中，然后每行正确地格式化多行string。 例如… 在我的文本编辑器中，查询看起来像这样。 SELECT a, b, c, …, n FROM table1, table2, …, tableN WHERE etc 然后将其粘贴到VBA编辑器中，并手动向每行添加sqlStr = sqlStr＆“….” 。 sqlStr = " SELECT " sqlStr = sqlStr & " a," sqlStr = sqlStr & " b," sqlStr = sqlStr & " c," sqlStr = sqlStr & " …," sqlStr = sqlStr & " n" […]