Cara menentukan apakah buku kerja Anda berisi link ke eksternal data dalam Excel 2002 dan Excel 2003

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 330383 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Buku kerja Excel dapat berisi data eksternal berkisar yang mengambil data dari sumber data berikut:
  • Microsoft SQL Server OLAP layanan (OLAP penyedia)
  • Microsoft Access
  • dBASE
  • Microsoft Visual FoxPro
  • Microsoft Excel
  • Oracle
  • Paradoks
  • SQL Server
  • File teks database
  • Penyedia pihak ketiga
Anda juga dapat menggunakan ODBC driver atau data sumber driver dari lain produsen untuk mendapatkan informasi dari sumber data yang tidak tercantum di sini, termasuk jenis OLAP database. Anda dapat menggunakan sumber data eksternal ini dalam rentang atau query tabel data di lembar kerja atau di sebuah PivotTable.

Anda mungkin ingin dapat menentukan jika lembar kerja yang dikirimkan kepada Anda berisi link ke sumber data eksternal. Ini dapat membantu Anda untuk memutuskan apakah atau tidak untuk mempercayai sumber dan apakah atau tidak Anda inginkan data yang akan diperbarui secara teratur atau saat membuka buku kerja. Anda juga dapat menghapus link ke data eksternal dan menyimpan nilai-nilai saat ini sebagai gantinya.

Artikel ini menjelaskan:
  • Cara daftar semua sumber data eksternal secara keseluruhan buku kerja.
  • Cara memilih semua data eksternal rentang dalam satu lembar kerja.
  • Cara menentukan jika kisaran data eksternal di buku kerja yang update secara otomatis.
  • Cara menggunakan Mengedit link dialog kotak.

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Cara daftar semua sumber data eksternal di seluruh buku kerja

Untuk daftar semua rentang data eksternal di buku kerja Microsoft Excel:
  1. Memulai Excel, dan kemudian buka buku kerja yang ingin Anda mencari sumber data eksternal.
  2. Pada Alat menu, titikMakro, lalu klik Visual Basic Editor.
  3. Di Editor Visual Basic, klik Modulpada Masukkan menu.
  4. Di jendela modul, ketik kode berikut:
    Sub ListWebQueryPivotTableLinks()
        Dim wbA As Workbook, wsN As Worksheet, ws As Worksheet
        Dim pt As PivotTable, qt As QueryTable, R As Long, i As Long
        Dim vLnkSrc As Variant
        Const PROGCREATE As String = "This external " & _
                                    "data range was created " & _
                                    "programmatically and cannot be edited"
        On Error GoTo errHandler
        Set wbA = ActiveWorkbook
        Set wsN = Workbooks.Add(xlWorksheet).Worksheets(1)
        wsN.Name = wbA.Name
        wsN.Range("A1:E1").Value = Array("Name", "Location", _
                "Type", "Connection", "CommandText")
        wsN.Range("A1:E1").Font.Bold = True
        R = 1
        For Each ws In wbA.Worksheets
            For Each pt In ws.PivotTables
                R = R + 1
                With pt.PivotCache
                    wsN.Cells(R, 1).Value = pt.Name
                    wsN.Cells(R, 2).Value = ws.Name & "!" & _
                            pt.TableRange2.Address(False, False)
                    Select Case .SourceType
                    Case xlConsolidation
                        R = R - 1
                        For i = 1 To UBound(.SourceData)
                            R = R + 1
                            wsN.Cells(R, 1).Value = pt.Name
                            wsN.Cells(R, 2).Value = ws.Name & "!" & _
                                    pt.TableRange2.Address(False, False)
                            wsN.Cells(R, 3).Value = _
                                    "PivotTable - Consolidation Range"
                            wsN.Cells(R, 4).Value = "'" & _
                                    .SourceData(i, 1)
                            wsN.Cells(R, 5).Value = "n/a"
                        Next
                    Case xlDatabase
                        wsN.Cells(R, 3).Value = "PivotTable - Excel List"
                        wsN.Cells(R, 4).Value = "'" & .SourceData
                        wsN.Cells(R, 5).Value = "n/a"
                    Case xlExternal
                        If .OLAP Then
                            wsN.Cells(R, 3).Value = "PivotTable - OLAP"
                            wsN.Cells(R, 4).Value = "'" & .Connection
                            wsN.Cells(R, 5).Value = .CommandText
                        ElseIf .QueryType = xlADORecordset Then
                            wsN.Cells(R, 3).Value = _
                                    "PivotTable - ADO Recordset"
                            wsN.Cells(R, 4).Value = PROGCREATE
                            wsN.Cells(R, 5).Value = "'" & .Recordset.Source
                        Else
                            wsN.Cells(R, 3).Value = _
                                    "PivotTable - External Data"
                            wsN.Cells(R, 4).Value = "'" & .Connection
                            wsN.Cells(R, 5).Value = .CommandText
                        End If
                    Case xlScenario
                        wsN.Cells(R, 3).Value = "PivotTable - Scenario"
                        wsN.Cells(R, 4).Value = "Based upon a Scenario " & _
                                "in this workbook"
                        wsN.Cells(R, 5).Value = "n/a"
                    End Select
                End With
            Next
            For Each qt In ws.QueryTables
                R = R + 1
                wsN.Cells(R, 1).Value = qt.Name
                wsN.Cells(R, 2).Value = ws.Name & "!" & _
                        qt.ResultRange.Address(False, False)
                Select Case qt.QueryType
                Case xlTextImport
                    wsN.Cells(R, 3).Value = "Text Import"
                    wsN.Cells(R, 4).Value = "'" & qt.Connection
                    wsN.Cells(R, 5).Value = "n/a"
                Case xlOLEDBQuery
                    wsN.Cells(R, 3).Value = "Query Table - OLEDB Query"
                    wsN.Cells(R, 4).Value = "'" & qt.Connection
                    wsN.Cells(R, 5).Value = "'" & qt.CommandText
                Case xlWebQuery
                    wsN.Cells(R, 3).Value = "Web Query Table"
                    wsN.Cells(R, 4).Value = "'" & qt.Connection
                    wsN.Cells(R, 5).Value = "n/a"
                Case xlADORecordset
                    wsN.Cells(R, 3).Value = "Query Table - ADO Recordset"
                    wsN.Cells(R, 4).Value = PROGCREATE
                    wsN.Cells(R, 5).Value = "'" & qt.Recordset.Source
                Case xlDAORecordset
                    wsN.Cells(R, 3).Value = "Query Table - DAO Recordset"
                    On Error Resume Next
                    wsN.Cells(R, 4).Value = "'" & qt.Recordset.Parent.Name
                    If Err.Number <> 0 Then
                        wsN.Cells(R, 4).Value = PROGCREATE
                        Err.Clear
                    End If
                    wsN.Cells(R, 5).Value = "'" & qt.Recordset.Name
                    If Err.Number <> 0 Then
                        wsN.Cells(R, 5).Value = PROGCREATE
                        Err.Clear
                    End If
                    On Error GoTo errHandler
                Case xlODBCQuery
                    wsN.Cells(R, 3).Value = "Query Table"
                    wsN.Cells(R, 4).Value = "'" & qt.Connection
                    wsN.Cells(R, 5).Value = qt.CommandText
                End Select
    
            Next
        Next
        vLnkSrc = wbA.LinkSources
        If Not IsEmpty(vLnkSrc) Then
            For i = 1 To UBound(vLnkSrc)
                R = R + 1
                wsN.Cells(R, 1).Value = "n/a"
                wsN.Cells(R, 2).Value = "n/a"
                wsN.Cells(R, 3).Value = "Link Source (Edit | Links)"
                wsN.Cells(R, 4).Value = vLnkSrc(i)
            Next
        End If
        wsN.Cells.WrapText = False
        wsN.Columns.AutoFit
        wsN.UsedRange.AutoFilter
        Exit Sub
    errHandler:
        MsgBox "An error has occurred." & vbCr & Err.Number & _
                vbCr & Err.Description
        Resume Next
    End Sub
    					
  5. Pada Berkas menu, klik Dekat dan Kembali ke Microsoft Excel.
  6. Pada Alat menu, titikMakro, lalu klik Makro.
  7. Dalam daftar makro, klikListWebQueryPivotTableLinks, lalu klikMenjalankan.

    Sumber data eksternal yang tercantum dalam baru buku kerja yang menampilkan sumber, lokasi, jenis dan rincian tentang sambungan.

Cara memilih rentang data eksternal semua dalam satu lembar kerja

Untuk memilih semua data eksternal berkisar di lembar kerja Excel:
  1. Memulai Excel, dan kemudian buka buku kerja yang berisi kisaran data eksternal yang ingin Anda pilih.

    Klik tab lembar lembar yang ingin Anda periksa.
  2. Pada Alat menu, titikMakro, lalu klik Visual Basic Editor.
  3. Di Editor Visual Basic, klik Modulpada Masukkan menu.
  4. Di jendela modul, ketik kode berikut:
    'This Sub procedure selects all cells in the worksheet that are part of
    'external data ranges
    Sub SelectAllQueryTables()
        FirstCell = 1
        For Each xQuery In ActiveSheet.QueryTables
            If FirstCell = 1 Then
                Set xRange = xQuery.ResultRange
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xQuery.ResultRange)
            End If
        Next xQuery
        xRange.Select
    End Sub
    					
  5. Pada Berkas menu, klik Dekat dan Kembali ke Microsoft Excel.
  6. Pada Alat menu, titikMakro, lalu klik Makro.
  7. Dalam daftar makro, klikSelectAllQueryTables, lalu klik Menjalankan.

    Setiap rentang data eksternal yang dipilih, dan Anda dapat bergerak dari sel untuk sel dalam pemilihan dengan menekan tombol TAB. Pilih lembar kerja berbeda dan kemudian ulangi langkah 6 dan 7 untuk memilih rentang data eksternal yang lembar kerja.

Cara menentukan jika kisaran data eksternal di buku kerja yang update secara otomatis

Untuk menentukan jika kisaran data eksternal yang secara otomatis mengambil data:
  1. Pilih semua rentang data eksternal di lembar kerja oleh menggunakan makro SelectAllQueryTables.
  2. Klik kanan sel dalam berbagai data eksternal yang dipilih, dan kemudian klik Kisaran data properti.
  3. Dalam Kisaran Data eksternal propertikotak dialog, lihat Me-refresh setiap n menit kotak centang dan Me-refresh data pada berkas Buka kotak centang.

    Jika salah satu kotak centang dipilih, data adalah secara otomatis refresh menurut interval yang ditetapkan atau bila file dibuka. Untuk mencegah data refresh secara otomatis, klik jelas Me-refresh setiap n menitkotak centang dan Me-refresh data pada berkas terbuka Periksa kotak.
  4. Klik kanan sel dalam data eksternal yang sama dipilih jangkauan, dan kemudian klik Parameter Jika perintah itu tersedia.
  5. Klik masing-masing item pada sisi kiri dari dialog kotak.

    Jika Refresh secara otomatis ketika sel nilai perubahan kotak centang ini dipilih, berbagai data eksternal dapat mengambil data secara otomatis. Untuk mencegah hal ini, klik untuk mengosongkan kotak centang.
  6. Ulangi langkah 2 hingga 5 untuk setiap rentang data eksternal dalam buku kerja.

Cara memilih semua PivotTables di lembar kerja

Untuk memilih semua PivotTables di Excel lembar kerja:
  1. Mulai Excel dan membuka buku kerja yang berisi PivotTables bahwa Anda ingin memilih. Klik tab lembar lembar yang ingin Anda Periksa.
  2. Pada Alat menu, titikMakro, lalu klik Visual Basic Editor.
  3. Di Editor Visual Basic, klik Modulpada Masukkan menu.
  4. Di jendela modul, ketik kode berikut:
    'This Sub procedure selects all cells in the worksheet that are part of
    'PivotTable reports
    Sub SelectAllPivotTables()
        FirstCell = 1
        For Each xQuery In ActiveSheet.PivotTables
            If FirstCell = 1 Then
                Set xRange = xQuery. TableRange2
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xQuery.TableRange2)
            End If
        Next xQuery
        xRange.Select
    End Sub
    					
  5. Pada Berkas menu, klik Dekat dan Kembali ke Microsoft Excel.
  6. Pada Alat menu, titikMakro, lalu klik Makro.
  7. Dalam daftar makro, klikSelectAllPivotTables, lalu klik Menjalankan.

    Semua PivotTables di lembar kerja yang sekarang dipilih. Pilih yang berbeda lembar kerja dan kemudian ulangi langkah 6 dan 7 untuk memilih PivotTables di yang lembar kerja.

Cara menentukan jika laporan PivotTable di buku kerja yang update secara otomatis

Untuk menentukan apakah sebuah PivotTable secara otomatis akan mengambil data:
  1. Pilih semua rentang PivotTable di lembar kerja oleh menggunakan makro SelectAllPivotTables.
  2. Klik kanan sel dalam PivotTable apapun, dan kemudian klikTabel pilihan.
  3. Dalam PivotTable pilihan kotak dialog, lihat The Me-refresh setiap n menit Periksa kotak dan Refresh pada terbuka kotak centang.

    Jika baik kotak centang ini dipilih, data secara otomatis refresh menurut interval yang diatur atau ketika berkas dibuka. Untuk mencegah data yang secara otomatis segar, klik untuk menghapus Me-refresh setiapn menit kotak centang dan Refresh terbuka kotak centang.
  4. Ulangi langkah 2 dan 3 untuk setiap PivotTable di buku kerja.

Cara menggunakan kotak dialog "Edit link"

Jika sel-sel di buku kerja yang mengandung rumus yang merujuk ke eksternal Excel Workbook, Anda dapat menampilkan link ini dan menentukan bagaimana mereka diperbarui dengan menggunakan Mengedit link kotak dialog. Untuk menggunakan kotak dialog ini:
  1. Pada Mengedit menu, klikTautan untuk membuka Mengedit link dialog kotak.
  2. Dalam Mengedit link kotak dialog, daftar link ke buku kerja eksternal ditampilkan.
  3. Untuk memperbarui semua data secara manual, klik Pemutakhiran Nilai-nilai.
  4. Untuk mengubah sumber link, pertama pilih link bahwa Anda ingin mengubah, dan kemudian klik Ubah Sumber.

    Pilih sumber baru, dan kemudian klikOke.
  5. Untuk membuka sumber, pertama pilih link yang Anda inginkan untuk terbuka, dan kemudian klik Open Source.
  6. Untuk memecahkan link dengan sumber data eksternal, klikLink istirahat.

    Perintah ini tidak meninggalkan data yang saat ini dalam sel, tapi menghapus referensi ke data eksternal.
  7. Untuk memeriksa status link apapun dan menentukan apakah masih tersedia, klik Cek Status.

REFERENSI

Untuk informasi lebih lanjut tentang data eksternal di Excel Workbook, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
223789Cara untuk meminimalkan metadata dalam Microsoft Excel Workbook
Untuk informasi lebih lanjut tentang cara mencegah Excel dari secara otomatis memperbarui atau menyegarkan data, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
248204Anda akan diminta untuk mengaktifkan otomatis refresh ketika Anda membuka buku kerja di Excel
Untuk informasi lebih lanjut tentang menghapus link, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
288853Nama ditetapkan tidak akan dihapus ketika Anda istirahat link di Excel

Properti

ID Artikel: 330383 - Kajian Terakhir: 03 Oktober 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 2002 Standard Edition
Kata kunci: 
kbxlslink kbformat kbhowto kbmt KB330383 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:330383

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com