(Áú¹®) ³ª½º¿¡ ÀÖ´Â ¿¢¼¿ ÆÄÀÏ¿¡¼ ÆÄÀÏ¸í ¸ÅĪÀ¸·Î ·ÎÄÿ¡ ÀÖ´Â ¿¢¼¿ ÆÄÀÏ¿¡ ³»¿ëÀ» °¡Á®¿À·Á°í ÇØ¿ä.
Èì...°æ·Î ¼³Á¤À» ÇؾßÇϴµ¥ ¾î·Á¿òÀ» °Þ°í ÀÖ¾î¿ä. ¾î¶»°Ô ¼öÁ¤À» ÇØ¾ß µÇ½Ã´ÂÁö ¾Æ½Ç±î¿ä?
À½...´Ù½Ã ¸»¾¸µå¸®¸é ¹Ø¿¡¼ 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
|