Pesan kesalahan ketika Anda menjalankan Visual Basic makro Aplikasi di Excel: "Metode 'SaveAs' dari objek '_Worksheet' gagal"

Gejala

Saat Anda menjalankan makro Visual Basic Aplikasi di Microsoft Excel, Anda mungkin menerima pesan kesalahan berikut ini atau serupa:

Penyebab

Perilaku ini bisa terjadi ketika kedua kondisi berikut benar:

• Anda menggunakan makro Visual Basic Aplikasi untuk menyimpan lembar kerja.
  
  -dan-

• Anda menentukan format file sebagai konstanta xlWorkbookNormal.

Misalnya, kode berikut menyebabkan kesalahan ini terjadi:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=xlWorkbookNormal
End Sub

Penyelesaian Masalah

Microsoft menyediakan contoh pemrograman hanya untuk ilustrasi, tanpa jaminan baik tersurat maupun tersirat, termasuk namun tidak terbatas pada jaminan tersirat yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap Anda sudah terbiasa dengan bahasa pemrograman yang sedang dipertunjukkan dan alat yang digunakan untuk membuat dan prosedur men-debug. Dukungan Microsoft profesional dapat membantu menjelaskan fungsionalitas dari prosedur tertentu, namun hal tersebut tidak akan memodifikasi contoh ini untuk menyediakan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi kebutuhan tertentu.
Jika memiliki pengalaman pemrograman yang terbatas, Anda mungkin perlu menghubungi Mitra Bersertifikat Microsoft atau Layanan Konsultasi Microsoft. Untuk informasi selengkapnya, kunjungi situs Web Microsoft:

Mitra Bersertifikat Microsoft - layanan https://partner.microsoft.com/global/30000104

Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice

Untuk informasi selengkapnya tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi situs Web Microsoft berikut ini:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Untuk mengatasi perilaku ini, ubah spesifikasi format file dari konstanta xlWorkbookNormal ke 1. Contoh kode berfungsi normal jika diubah menjadi:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=1
End Sub

CATATAN Meskipun Anda menyimpan lembar kerja, semua lembar kerja dalam buku kerja yang dipilih akan disimpan saat format file diatur ke xlWorkbookNormal atau 1.

Status

Microsoft telah mengonfirmasi bahwa hal ini merupakan masalah dalam produk Microsoft yang tercantum di bagian awal artikel ini.