ID Artikel: 234774 - Kajian Terakhir: 20 September 2011 - Revisi: 2.0

Cara mengotomatisasi Excel dari halaman HTML Web dengan menggunakan JScript

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Melihat produk di mana artikel ini berlaku.
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

Pada Halaman ini

Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini menunjukkan bagaimana untuk membuat dan memanipulasi Buku kerja Microsoft Office Excel dari halaman HTML.
Kembali ke atas

INFORMASI LEBIH LANJUT

Artikel ini menggambarkan JScript kode yang mengotomatiskan Excel. JScript memiliki tidak berarti internal untuk menciptakan SAFEARRAYs. Kapan menggunakan otomatisasi, jika Anda memanggil fungsi yang memerlukan SAFEARRAY, Anda dapat menggunakan VBScript untuk membuat SAFEARRAY. Kode di bawah ini menunjukkan kombinasi ini JScript dan VBScript kode.
Kembali ke atas

Membuat sampel otomatisasi

  1. Jalankan Notepad.
  2. Paste kode berikut ke Notepad. 
    <HTML>
<BODY>
Press the button to start Excel and display quarterly data.
<SCRIPT LANGUAGE="VBScript">
Function CreateNamesArray()
' Create an array to set multiple values at once.
  Dim saNames(5, 2)
  saNames(0, 0) = "John"

  saNames(0, 1) = "Smith"
  saNames(1, 0) = "Tom"
  saNames(1, 1) = "Brown"
  saNames(2, 0) = "Sue"
  saNames(2, 1) = "Thomas"
  saNames(3, 0) = "Jane"
  saNames(3, 1) = "Jones"
  saNames(4, 0) = "Adam"
  saNames(4, 1) = "Johnson"
  CreateNamesArray = saNames
End Function
</SCRIPT>

<SCRIPT LANGUAGE="JScript"> 
function AutomateExcel()
{

   // Start Excel and get Application object.
      var oXL = new ActiveXObject("Excel.Application");
       
      oXL.Visible = true;
      
   // Get a new workbook.
      var oWB = oXL.Workbooks.Add();
      var oSheet = oWB.ActiveSheet;
         
   // Add table headers going cell by cell.
      oSheet.Cells(1, 1).Value = "First Name";
      oSheet.Cells(1, 2).Value = "Last Name";
      oSheet.Cells(1, 3).Value = "Full Name";
      oSheet.Cells(1, 4).Value = "Salary";
         
   // Format A1:D1 as bold, vertical alignment = center.
      oSheet.Range("A1", "D1").Font.Bold = true;
      oSheet.Range("A1", "D1").VerticalAlignment =  -4108; //xlVAlignCenter
         
   // Create an array to set multiple values at once.

   // Fill A2:B6 with an array of values (from VBScript).
      oSheet.Range("A2", "B6").Value = CreateNamesArray();
     
   // Fill C2:C6 with a relative formula (=A2 & " " & B2).
      var oRng = oSheet.Range("C2", "C6");
      oRng.Formula = "=A2 & \" \" & B2";
         
   // Fill D2:D6 with a formula(=RAND()*100000) and apply format.
      oRng = oSheet.Range("D2", "D6");
      oRng.Formula = "=RAND()*100000";
      oRng.NumberFormat = "$0.00";
         
   // AutoFit columns A:D.
      oRng = oSheet.Range("A1", "D1");
      oRng.EntireColumn.AutoFit();
         
   // Manipulate a variable number of columns for Quarterly Sales Data.
      DispalyQuarterlySales(oSheet);
        
   // Make sure Excel is visible and give the user control
   // of Excel's lifetime.
      oXL.Visible = true;
      oXL.UserControl = true;
}
      
function DispalyQuarterlySales(oWS)
{
      var iNumQtrs, sMsg, iRet;

    // Number of quarters to display data for.
      iNumQtrs = 4;
               
    // Starting at E1, fill headers for the number of columns selected.
      var oResizeRange = oWS.Range("E1", "E1").Resize(1,iNumQtrs);
      oResizeRange.Formula = "=\"Q\" & COLUMN()-4 & CHAR(10) & \"Sales\"";
         
    // Change the Orientation and WrapText properties for the headers.
      oResizeRange.Orientation = 38;
      oResizeRange.WrapText = true;
         
    // Fill the interior color of the headers.
      oResizeRange.Interior.ColorIndex = 36;
         
    // Fill the columns with a formula and apply a number format.
      oResizeRange = oWS.Range("E2", "E6").Resize(5,iNumQtrs);
      oResizeRange.Formula = "=RAND()*100";
      oResizeRange.NumberFormat = "$0.00";
         
    // Apply borders to the Sales data and headers.
      oResizeRange = oWS.Range("E1", "E6").Resize(6,iNumQtrs);
      oResizeRange.Borders.Weight = 2;  // xlThin
         
    // Add a Totals formula for the sales data and apply a border.
      oResizeRange = oWS.Range("E8", "E8").Resize(1,iNumQtrs);
      oResizeRange.Formula = "=SUM(E2:E6)";
    // 9 = xlEdgeBottom      
      oResizeRange.Borders(9).LineStyle = -4119; //xlDouble
      oResizeRange.Borders(9).Weight = 4; //xlThick
         
    // Add a Chart for the selected data.

      oResizeRange = oWS.Range("E2:E6").Resize(5,iNumQtrs);
      var oChart = oWS.Parent.Charts.Add();
      oChart.ChartWizard(oResizeRange, -4100, null, 2);  // -4100 = xl3dColumn
      oChart.SeriesCollection(1).XValues = oWS.Range("A2", "A6");
      for (iRet = 1; iRet <= iNumQtrs; iRet++) {
         oChart.SeriesCollection(iRet).Name = "=\"Q" + iRet + "\"";
      }
      oChart.Location(2, oWS.Name); // 2 = xlLocationAsObject
         
    // Move the chart so as not to cover your data.
      oWS.Shapes("Chart 1").Top = oWS.Rows(10).Top;
      oWS.Shapes("Chart 1").Left = oWS.Columns(2).Left;
}
</SCRIPT>
<P><INPUT id=button1 type=button value="Start Excel" 
          onclick="AutomateExcel"></P>
</BODY>
</HTML>
  3. Simpan file ke direktori pilihan Anda dengan nama file Excelaut.htm.
  4. Tutup Notepad dan memulai Internet Explorer.
  5. Dalam Alamat Bar, ketik C: \jalan\excelaut.htm, di mana jalan adalah Anda menyimpan file dalam direktori.
  6. Ketika Internet Explorer load file, Anda akan melihat salah satu kalimat dengan tombol. Ketika Anda menekan tombol, Excel akan dimulai pada klien mesin dan mengisi dengan data.
Kembali ke atas

REFERENSI

Artikel ini sejajar dengan artikel lain yang menggambarkan proses yang sama menggunakan bahasa yang berbeda. Untuk informasi selengkapnya, klik nomor artikel berikut ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
219151  (http://support.microsoft.com/kb/219151/ ) Cara mengotomatisasi Microsoft Excel dari Visual Basic
179706  (http://support.microsoft.com/kb/179706/ ) Cara menggunakan MFC untuk mengotomatisasi Excel dan menciptakan dan format buku kerja baru
219430  (http://support.microsoft.com/kb/219430/ ) Cara membuat/format buku kerja Excel yang menggunakan Visual J ++ otomatisasi
231614  (http://support.microsoft.com/kb/231614/ ) Cara mengotomatisasi Excel untuk membuat buku kerja baru dari Delphi
Untuk informasi lebih lanjut tentang cara mengotomatisasi Excel dari halaman HTML, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
198703  (http://support.microsoft.com/kb/198703/ ) Cara mengotomatisasi Excel dari sisi klien VBScript
Untuk informasi lebih lanjut mengenai otomatisasi Office, kunjungi Microsoft Office Development dukungan Website berikut:
http://support.microsoft.com/ofd (http://support.microsoft.com/ofd)
Kembali ke atas
Berlaku bagi:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Kembali ke atas
Kata kunci: 
kbautomation kbhowto kbmt KB234774 KbMtid
Kembali ke atas
Penerjemahan MesinPenerjemahan 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:234774  (http://support.microsoft.com/kb/234774/en-us/ )
Kembali ke atas