|
(질문) 나스에 있는 엑셀 파일에서 파일명 매칭으로 로컬에 있는 엑셀 파일에 내용을 가져오려고 해요.
흠...경로 설정을 해야하는데 어려움을 겪고 있어요. 어떻게 수정을 해야 되시는지 아실까요?
음...다시 말씀드리면 밑에서 filepath를 어떻게 변경해야지 나스에서 엑셀 파일의 자료를 로컬 엑셀 파일로 가져올수 있을까요?
현재 로컬 피씨 엑셀 파일의 콤보 상자를 누르면 나스의 엑셀 파일에서 자료를 가져오도록 코드를 짜는 중이어요 ㅜ
---------------------------------------------------------------------------------------------
Option Explicit
Sub ExcelFileData_Get()
Dim conn As Object
Dim RS As Object
Dim strSQL As String
Dim FilePath As String
Dim FileName As String
Dim i As Long
FilePath = ThisWorkbook.Path + "\"
If [A1].Text = "A" Then
FileName = "가격표.xlsx"
End If
Set RS = CreateObject("ADODB.Recordset")
Set conn = CreateObject("ADODB.Connection")
With conn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & FilePath & FileName & ";" & _
"Extended Properties=Excel 12.0;"
.Open
End With
strSQL = "SELECT * FROM [Data$] "
Set RS = conn.Execute(strSQL)
With ActiveWorkbook.ActiveSheet.Range("A5")
.CurrentRegion.Clear
For i = 0 To RS.Fields.Count - 1
.Offset(0, i).Value = RS.Fields(i).Name
Next i
.Offset(1, 0).CopyFromRecordset RS
End With
RS.Close
conn.Close
Set RS = Nothing
Set conn = Nothing
End Sub
| 
등록안내
등록안내
