Migrasi dari office 2003 ke 2010
Hari ini saya sedikit dipusingkan dengan perilaku worksheet yang saya buat sendiri. Awalnya, saya mengira hanya system windowsnya yang error atau kres dengan program lain, setelah saya mematikan beberapa aplikasi yang tidak digunakan, hasilnya excell saya tetap saya error.
Oh iya, sebelumnya microsoft office di komputer tempat kerja saya baru saya fresh install dengan office 2010 dari yang sebelumnya office 2003. Wajarlah kalo akhirnya ada sedikit masalah seperti gambar dibawah ini

Tuduhan saya langsung tertuju pada perubahan pada macro di microsoft office 2010. Tanda pikir panjang lagi saya tekan “alt+F11″ untuk membuka VBA nya dan memasukkan passwordnya . Dan saya ulangi lagi untuk memanggil form nya , ternyata error tersebut terdapat pada
Set fs = Application.FileSearch
With fs
FOLDER = Worksheets(“hatsumono”.Range(“A1″ ‘folder pencarian
.LookIn = FOLDER
.Filename = “*-*-DL” ‘nama file
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) <> 0 Then
For I = 1 To .FoundFiles.Count
Nama = .FoundFiles(I)
XXX = Right(Nama, 5)
Setelah diputer-puter oleh mbah google dan sedikit frustasi juga, akhirnya saya berlabuh di situsnya microsoft , dan berhasil mendapatkan pencerahan dengan mengganti scriptnya dengan seperti ini .
Dim Coll_Docs As New Collection
Dim Search_path, Search_Filter, nama As String
Dim DocName As String
Dim i As Long
Search_path = Worksheets(“hatsumono”.Range(“A1″ ‘‘folder pencarian
Search_Filter = “*-*-DL” ‘nama file
Set Coll_Docs = Nothing
DocName = Dir(Search_path & “\” & Search_Filter)
Do Until DocName = “”
Coll_Docs.Add Item:=DocName
DocName = Dir
Loop
MsgBox “ada ” & Coll_Docs.Count & ” file.”
For i = Coll_Docs.Count To 1 Step -1 ’
nama = Search_path & Coll_Docs(i)
XXX = Right(Nama, 5)
nah setelah itu saya ganti , dan pastinya banyak modul yang mirip seperti diatas yang harus saya ganti juga, akhirnya worksheet saya bisa berjalan dengan lancar lagi. hulf, ada-ada aja nih microsoft kalo ngerjain penggunanya . Entah apalagi perbedaan yang akan saya temukan dilain waktu yang terpaksa membuat saya harus berfikir lagi untuk menyesuaikan script yang sudah saya buat dengan office 2003 .
salam blogger tengah malam ………………
