|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):
Private Sub Excelcm_Click()
Dim objFileDS As Office.FileDialog
Dim strfile As String
Set objFileDS = Application.FileDialog(msoFileDialogOpen)
objFileDS.Show
strfile = objFileDG.SelectedItems(1)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12,
"이부분", strfile, True
'메시지 표시
MsgBox "데이터를 가져왔습니다."
Exit Sub
End Sub
여기에서 불러올 테이블명(이부분)을 임의로 선택(ex: 수입자료 또는 지출
자료 등으로) 즉 다른 이름으로 저장하여 불러올 방법이 없을까요
여러방법을 해 보아도 너무 힘이 드네요
==============[구름나그네님 글에 대한 답변입니다]==============
허접하지만 해결을 했읍니다.
ans=inputbox("저장할 파일명"," ")
"이부분"에 [ans]로 하여 수정하였읍니다. |
|