none
오피스 365 사용자입니다. RRS feed

  • 질문

  • Sub 거래처별()
    '
    ' 거래처별 매크로
    ActiveSheet.Unprotect "1491"
    Dim stSQL As String, stName As String
    Dim rngDb As DAO.Database
    Dim rngRs As DAO.Recordset
    Dim a As Date, b As Date
    Dim i As Integer

     Set rngDb = OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0;")
       a = Range("C6"): b = Range("D6")
     stName = Range("E5").Value
     
    stSQL = "SELECT 일자, 발주처, 현장명, 품명, 수량, 청구, 입금  "
    stSQL = stSQL & "FROM [작업내역$]  "
    stSQL = stSQL & "Where [발주처]=""" & stName & """"
    stSQL = stSQL & "and (일자 Between #" & a & "# And #" & b & "#)"
    stSQL = stSQL & "ORDER BY 일자"

    Set rngRs = rngDb.OpenRecordset(stSQL)

     With Range("p4")
         .CurrentRegion.ClearContents
       For i = 0 To rngRs.Fields.Count - 1
          .Offset(, i) = rngRs.Fields(i).Name
        Next
         .Offset(1).CopyFromRecordset rngRs
       End With
     rngRs.Close: rngDb.Close
     Set rngRs = Nothing: Set rngDb = Nothing
     Range("E4").Select
     ActiveSheet.Protect "1491"
    End Sub

    매크로가 32Bit 에서는 작동하는데 64Bit에서는 런타임오류가 발생합니다. 어떻게 해야 합니까?
    2018년 5월 9일 수요일 오전 2:18