CSV dosyasını çalışma sayfasına nasıl aktarılır?

Çalışma sayfasını CSV dosyası olarak içe aktarmak veya kaydetmek bizim için kolay olabilir, ancak hiç CSV dosyasını çalışma sayfasına aktarmayı denediniz mi? Bu makalede, bu görevle başa çıkmak için size bazı ilginç yöntemlerden bahsedeceğim.

Metin İçe Aktarma Sihirbazı ile CSV dosyasını çalışma sayfasına aktarın

Kutools for Excel ile CSV dosyasını çalışma sayfasına aktarın

VBA kodu ile CSV dosyasını çalışma sayfasına aktarın

Metin İçe Aktarma Sihirbazı ile CSV dosyasını çalışma sayfasına aktarın

Normalde, Excel'de, CSV dosyasını bir çalışma sayfasına aktarmak için Metin İçe Aktarma Sihirbazı işlevini kullanabilirsiniz, lütfen aşağıdaki adımları izleyin:

1. CSV dosyasını aktarmak istediğiniz çalışma sayfasını etkinleştirin, ardından Veri > Metinden tıklayın, ekran görüntüsüne bakın:

2. Metin Dosyasını İçe Aktar penceresinde, aktarmak istediğiniz CSV dosyasını belirtin, ekran görüntüsüne bakın:

3. Ardından İçe Aktar düğmesine tıklayın, Metin İçe Aktarma Sihirbazı'nın 1. Adımında Ayraçlı seçeneğini işaretleyin, ekran görüntüsüne bakın:

4. Ardından İleri > düğmesine tıklayın, sihirbazın 2. Adımında Ayraçlar seçeneği altında Virgül'ü işaretleyin, ekran görüntüsüne bakın:

5. Daha sonra İleri > düğmesine devam ederek tıklayın, sihirbazın 3. Adımında Sütun veri biçimi bölümünde Metin seçeneğini işaretleyin ve ilk sütunun vurgulandığını görebilirsiniz. Ardından tüm sütunları vurgulamak için Shift tuşunu basılı tutun. Ekran görüntüsüne bakın:

6. Ardından Tamamla düğmesine tıklayın, açılan Veri İçe Aktarma iletişim kutusunda verileri yerleştirmek istediğiniz konumu seçin, ekran görüntüsüne bakın:

7. Tamam düğmesine tıklayın, CSV dosyası hemen çalışma sayfasına aktarılacaktır.

Kutools for Excel ile CSV dosyasını çalışma sayfasına aktarın

Eğer Kutools for Excel'iniz varsa, İmleç Konumuna Dosya Ekle yardımcı programıyla CSV dosyasını, Metin dosyasını, Excel dosyasını veya PRN dosyasını hızlıca mevcut çalışma sayfasına aktarabilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:

1. CSV dosya verilerini aktarmak istediğiniz çalışma sayfasını etkinleştirin.

2. Ardından Kutools Plus > İçe/Dışa Aktar > İmleç Konumuna Dosya Ekle'ye tıklayın, ekran görüntüsüne bakın:

3. İmleç Konumuna Dosya Ekle iletişim kutusunda, lütfen aşağıdaki seçenekleri yapın:

(1.) Tıklayın verileri çıkarmak istediğiniz hücreyi seçmek için düğmeye basın;

(2.) Ardından Gözat düğmesine tıklayarak İmleç konumundaki hücreye eklenecek dosyayı seçin penceresini açın;

(3.) Açılan pencerede, sağ alt açılır listeden CSV Dosyaları'nı seçin ve ardından içe aktarmak istediğiniz CSV dosyasını seçin.

4. CSV dosyasını belirttikten sonra, önceki iletişim kutusuna dönmek için Aç düğmesine tıklayın ve ardından CSV dosyasını içe aktarmak için Tamam'a tıklayın. CSV dosyası, ihtiyacınız olan belirli konuma eklenecektir.

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!

VBA kodu ile CSV dosyasını çalışma sayfasına aktarın

Yukarıdaki adım adım yöntemi uygulamaktan yorulduysanız, aşağıdaki VBA kodu da bu sorunu çözebilir.

1. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: CSV dosyasını çalışma sayfasına aktar:

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
    If xFileName = False Then Exit Sub
    On Error Resume Next
    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
    On Error GoTo 0
    If Rg Is Nothing Then Exit Sub
    xAddress = Rg.Address
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan Kutools for Excel iletişim kutusunda içe aktarmak istediğiniz CSV dosyasını seçin, ekran görüntüsüne bakın:

4. Ardından Aç düğmesine tıklayın ve içe aktarılan verileri yerleştirmek istediğiniz bir hücreye tıklayın, ekran görüntüsüne bakın:

5. Ve ardından Tamam'a tıklayın, belirli CSV dosyası çalışma sayfasına aktarılacaktır.