| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
윈98, 엑세스97
Private Sub Append_button_Click()
Dim stDocName As String
Dim filepath As String
Dim fileextension As String
Dim tempstr As String
Dim temp As Integer
stDocName = "(누락)_delete"
DoCmd.OpenQuery stDocName
If (Text_filename.Value <> "") Then
temp = MsgBox(Chr(34) & Text_filename.Value & Chr(34) & " 화일을 가져옵니까 ?", vbYesNo, "확인 사항")
If (temp = 7) Then
Text_filename.Value = ""
Exit Sub
End If
filepath = "c:\화일\"
fileextension = ".xls"
tempstr = filepath & Text_filename.Value & fileextension
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "(누락)", tempstr, True
Forms.Application.Screen.ActiveForm.Refresh
Else
MsgBox "화일명 없음", vbCritical, "경고"
End If
End Sub
안녕하세요...
여기 코딩에서 Text_filename 에서 화일명을 넣고 엑셀 화일을 불러 올려고 합니다. 그런데 여기에는 공백란과
화일명이 틀렸을때 메시지 창을 넣고 싶은데 어떻게 해야지 되는가 해서요.....
고수님의 조언 부탁드립니다...
당신은 행복한 사람입니다... |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
