[vba] Export Excel to Access
하나를하더라도최선을
2022-09-19 10:00
653
0
-
- 첨부파일 : Export Excel to Access.zip (33.5K) - 다운로드
본문
Sub program1472()
Dim acc As Object
Set acc = CreateObject("Access.Application")
acc.OpenCurrentDatabase ThisWorkbook.Path & "\DB.accdb"
acc.DoCmd.TransferSpreadsheet _
TransferType:=0, _
SpreadSheetType:=acSpreadsheetTypeExcel12Xml, _
TableName:="program1472", _
Filename:=Application.ActiveWorkbook.FullName, _
HasFieldNames:=True, _
Range:="tem$A1:B10"
acc.CloseCurrentDatabase
acc.Quit
Set acc = Nothing
End Sub
댓글목록0