ms 엑셀 형식으로 엑세스 내보내기

Question

나는 항목, 단위, quote1, quote2, quote3 및 quote4와 같은 1 개의 테이블 6 개 열이있는 액세스 데이터베이스를 가지고 있습니다.

항목 형식이 있고 Excel 형식이 동일한 형식으로 생성되지만 형식화 된 항목 만 인쇄되고 Excel로 내보내는 양식이 필요합니다.

엑셀 시트의 형식은 다음과 같습니다. 아니요, 항목, 단가, SOH, quote1, quote2, quote3, quote4.

어떻게해야합니까? 다음과 같이

Answer 1

내가 직장에서 사용하는 방법은 다음과 같습니다 당신이 좋아하는 것

빌드 데이터 필드와 형태가에 넣어 보냅니다.

새 모듈을 시작하고 다음 샘플 코드를 넣습니다. 나의 양식은 다음이 서브 루틴을 호출 할 수 있으며 엑셀로 모든 데이터 필드를 덤프합니다 "의 TableView"

Sub exportcasetable4() 
    DoCmd.OpenForm "TableView", acFormDS 
    Forms!tableview.SetFocus 
    DoCmd.RunCommand (acCmdSelectAllRecords) 
    DoCmd.RunCommand (acCmdCopy) 
    Dim objXLOutput As Object 
    Dim objWBOutput As Object 
    Dim objWSOutput As Object 
    Set objXLOutput = CreateObject("Excel.Application") 
    objXLOutput.Visible = True 
    Set objWBOutput = objXLOutput.Workbooks.Add 
    Set objWSOutput = objXLOutput.ActiveWorkbook.ActiveSheet 
    objWSOutput.Range("A1").Select 
    objWSOutput.PasteSpecial Format:="Unicode Text", Link:=False, DisplayAsIcon _ 
    :=False 
    objWSOutput.Range("A1").Select 
    DoCmd.Close acForm, "TableView" 
    Set objXLOutput = Nothing 
    Set objWBOutput = Nothing 
    Set objWSOutput = Nothing 
End Sub 

를 불렀다. 버튼에서 호출하도록 선택할 수 있습니다.

희망이 도움이됩니다.