Excel에서 VBA 변수 함수를 사용하여 SQL 쿼리 호출

Question

나는 이런 것들에 관해서 조금 초보자입니다. 그래서 이것이 어리석은 질문 인 경우 사과드립니다.

VBA에서 SQL 쿼리를 실행해야합니다. 쿼리는 함수에 VBA 변수가 포함되어 있기 때문에 약간 이상합니다. 그렇지 않으면 모든 것이 아주 간단합니다. VBA는 쿼리를 호출 한 다음이를 클라이언트 Excel 문서에 삽입해야합니다.

Access 내에서 쿼리를 실행할 때마다 정상적으로 함수가 올바른 값을 반환하고 열을 필터링합니다. Excel에서 VBA에서 실행할 때마다 "Run-Time Error "3085"라고 표시됩니다. 식의 정의되지 않은 함수 'CutOff'.

나는 정보를 찾고 Access 2003에 이런 종류의 일을하는 데 종종 문제가 있다고 이전 사이트에서 발견했지만 2010 년을 실행하고 있습니다. 문제가 해결 될 수 있기를 바라며 조언을 주시면 감사하겠습니다. 다음과 같이

쿼리는 다음과 같습니다

SELECT [<TableName>].ID...* 
    FROM [<TableName>] 
    WHERE ((([<TableName>].ID)>CutOff())) 
    ORDER BY [<TableName>]].ID; 

Public Function Cutoff() 
    Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet 
    Dim y As Long 
    Set WB1 = Workbooks.Open("C:\filepath.z.xlsm") 
    Set WS1 = WB1.Sheets("Sheet2") 
    y = WS1.Range("A1").End(xlDown).Offset(0, 0).Value 
    'Debug.Print y 
    Cutoff = y 
    'Debug.Print Cutoff 
End Function 

가 엑셀에서 운영하고 실행하는 VBA.

Sub Export2() 

    Dim db2 As Database 
    Dim rs2 As DAO.Recordset, i As Long, sFormat As String 
    Dim WB2 As Excel.Workbook, WS2 As Excel.Worksheet 
    Set WB2 = Workbooks.Open("C:\FilePath.z.xlsm") 
    Set WS2 = WB.Sheets("Sheet2") 
    Set db2 = OpenDatabase("C:\FilePath.x.mdb") 
    Set qd2 = db2.QueryDefs("ExportCount") 
    Set rs2 = qd2.OpenRecordset() 

     If rs2.EOF Then 
      GoTo EndLoop 
     End If 

    WS2.Range("a1").End(xlsDown).Offset(1, 0).CopyFromRecordset rs2 
    WS2.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit 
EndLoop: 


    Set WB = Nothing 
    Set WS2 = Nothing 
    Set db2 = Nothing 
    Set qd2 = Nothing 
    Set rs2 = Nothing 

End Sub 

편집 :

도 시도 해 봤나 :

Sub SQLquery1() 

    Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet 
    Dim wt As DAO.Database 
    Dim we As DAO.Recordset 
    Dim wd As DAO.QueryDef 

    Set WB1 = Workbooks.Open("C:\x.xlsm") 
    Set WS1 = WB1.Sheets("Sheet2") 
    mySQLVariable = WS1.Range("A1").End(xlDown).Offset(0, 0).Value 
    'Debug.Print mySQLVariable 
    Set wt = OpenDatabase("C:\z.mdb") 
    Set wd = wt.QueryDefs("ExportCount") 
    Set we = wd.OpenRecordset("h") 

    WS2.Range("a1").End(xlsDown).Offset(1, 0).CopyFromRecordset wd 
    WS2.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit 

    Set WB1 = Nothing 
    Set WS1 = Nothing 
    Set wt = Nothing 
    Set we = Nothing 
    Set wd = Nothing 

End Sub 

EDIT2

Sub CreateQueryDef() 
    Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet 
    Dim dbPP As Database 
    Dim qdfTemp As QueryDef 
    Dim Counter As DAO.Recordset 
    Dim mySQLVariable As String 
    Dim rs5 As DAO.Recordset 


    Set dbPP = OpenDatabase("C:\filepath\z.mdb") 
    Set Counter = dbPP.OpenRecordset("j") 
    Set WB1 = Workbooks.Open("C:\filepath\x.xlsm") 
    Set WS1 = WB1.Sheets("Sheet2") 
    mySQLVariable = WS1.Range("A1").End(xlDown).Offset(0, 0).Value 
    'Debug.Print mySQLVariable 

    With dbPP 
     Set qdfTemp = dbPP.CreateQueryDef("NewQueryDef", "SELECT * FROM [j]") 
     'WHERE ((j.[ID])=>(mySQLVariable)))") I can't get the syntax of these lines right - they are supposed to all be on the same line 
     Set rs5 = qdfTemp.OpenRecordset() ' maybe Set rs5 = qdfTemp.OpenRecordset("NewQueryDef")? 
    End With 

     WS1.Range("a1").End(xlsDown).Offset(1, 0).CopyFromRecordset rs5 
     WS1.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit 
     dbPP.QueryDefs.Delete "NewQueryDef" 

End Sub 

또는

나는 다음과 같은 시도

Sub CreateQueryDef() 
      Dim dbPP As Database 
      Dim qdfTemp As QueryDef 
      Dim Counter As DAO.Recordset 
      Dim mySQLVariable As String 
      Dim rs5 As DAO.Recordset 


      Set dbPP = OpenDatabase("C:\filepath\z.mdb") 
      Set Counter = dbPP.OpenRecordset("j") 
      mySQLVariable = CutOff 
      'Debug.Print mySQLVariable 

      With dbPP 
       Set qdfTemp = dbPP.CreateQueryDef("NewQueryDef", "SELECT * FROM [j] WHERE ((j.[ID])=>(mySQLVariable)))") 
       Set rs5 = qdfTemp.OpenRecordset("NewQueryDef") 
      End With 

      WS1.Range("A1").End(xlsDown).Offset(1, 0).CopyFromRecordset rs5 
      WS1.Cells.EntireColumn.AutoFit: WS2.Cells.EntireRow.AutoFit 
      dbPP.QueryDefs.Delete "NewQueryDef" 

      dbPP.Close 

      Set dbPP = Nothing 
      Set qdfTemp = Nothing 
      Set Counter = Nothing 
      Set mySQLVariable = Nothing 
      Set rs5 = Nothing 
End Sub 

Public Function Cutoff() 
     Dim WB1 As Excel.Workbook, WS1 As Excel.Worksheet 
     Dim y As Long 
     Set WB1 = Workbooks.Open("C:\filepath.z.xlsm") 
     Set WS1 = WB1.Sheets("Sheet2") 
     y = WS1.Range("A1").End(xlDown).Offset(0, 0).Value 
     'Debug.Print y 
     Cutoff = y 
     'Debug.Print Cutoff 
End Function 

Answer 1

내가 잘못한 것을 해결했습니다.

VBA로 작성된 SQL 문자열에 현재 변수 값을 삽입하고 Access에 임시 쿼리로 전달해야합니다. 변수의 값은 Access에 전달 될 때까지 고정되므로 Access에서 매크로를 실행하여 매크로를 검색 할 필요가 없으므로 매크로를 활성화 한 상태에서 데이터베이스를 열어야합니다 (예 :

Public y As String 

    Sub definey() 
     y = (VariableInput) 
    Call Query 
    End Sub 

    Sub Query 
    Dim q As DAO.Database 
    Dim s As DAO.Recordset 
    Dim mySQLVariable As String 
    Dim strSQL As String 

    mySQLVariable = y 

     strSQL = "SELECT * FROM [Table1] WHERE (((Table1.ID)>" & "Chr$36 MySQLVariable Chr$36")) 
    'I'm free writing, not copying from code, so apologies if this isn't quite right 

     Set q = OpenDatabase("Filepath\h.mdb") 
     Set s = q.OpenRecordset(strSQL) 

    '... then copy to workbook. 
End Sub