alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/531696f740cb179e148b463b/ask-vb6--excel--acces--cara-export-excel-yang-mengambil-dari-file-yang-tetap
Peringatan! 
[ASK] [VB6 , Excel , Acces] Cara Export Excel Yang Mengambil dari file yang tetap
assalamualaikum gan emoticon-Malu (S)

Permisi Agan Master Mau Nanya ya emoticon-Malu (S)

ane mau nanya tentang VB , Acces , Excel nih gan emoticon-Malu (S)

Kalau kita tekan button Export di VB 6 , ane pengennya langsung masuk ke file yang udah di tetapkan [bukan yang new]
oh ya gan , kalau bisa sekalian kasih kode VB.6 nya ya gan emoticon-Malu (S)

makasih gan , semoga ada yang jawab emoticon-Mewek

wassalam. emoticon-I Love Indonesia (S) emoticon-I Love Kaskus (S) emoticon-Cendol (S)
emoticon-Cape d... (S)
up emoticon-Belomatabelo
ko ga ada yang bantu emoticon-Matabelo
Quote:Original Posted By Barliandi.Moven


assalamualaikum gan emoticon-Malu (S)



Permisi Agan Master Mau Nanya ya emoticon-Malu (S)



ane mau nanya tentang VB , Acces , Excel nih gan emoticon-Malu (S)



Kalau kita tekan button Export di VB 6 , ane pengennya langsung masuk ke file yang udah di tetapkan [bukan yang new]

oh ya gan , kalau bisa sekalian kasih kode VB.6 nya ya gan emoticon-Malu (S)



makasih gan , semoga ada yang jawab emoticon-Mewek



wassalam. emoticon-I Love Indonesia (S) emoticon-I Love Kaskus (S) emoticon-Cendol (S)

emoticon-Cape d... (S)

walaikumsalam gan emoticon-Malu (S)
Permisi ane mau ikutan jawab gan emoticon-Malu (S)
ane mau coba jawab tentang VB , Acces , Excel nih gan emoticon-Malu (S)

Supaya bisa mengisi data pada file yg sudah ada dan bukannya buatbarulagi maka object workbook harus diset dengan cara membuka file Excel yg ada, bukannya dengan perintah menambah workbook baru

Code:
Dim oExcel As Object
Dim oBook As Object
Set oExcel = CreateObject("Excel.Application")

[I][COLOR="#FF0000"]'Kalau membuat file baru :[/COLOR][/I]
'Set oBook = oExcel.Workbooks.Add

[I][COLOR="#FF0000"]'Kalau memakai file yg sudah ada :[/COLOR][/I]
oExcel.Workbooks.Open namaFileExcel
Set oBook = oExcel.Workbooks(1)

Untuk kode VB6 nya, silahkeun download file ini (lengkap dengan seluruh file yg diperlukan) :
link

kembali kasih gan , ini udah ada yang jawab emoticon-Mewek



wassalam. emoticon-I Love Indonesia (S) emoticon-I Love Kaskus (S) emoticon-Cendol (S)

emoticon-Cape d... (S)



Quote:Original Posted By Barliandi.Moven


ko ga ada yang bantu emoticon-Matabelo

Meneketehe? emoticon-Matabelo
Quote:Original Posted By karedog

walaikumsalam gan emoticon-Malu (S)
Permisi ane mau ikutan jawab gan emoticon-Malu (S)
ane mau coba jawab tentang VB , Acces , Excel nih gan emoticon-Malu (S)

Supaya bisa mengisi data pada file yg sudah ada dan bukannya buatbarulagi maka object workbook harus diset dengan cara membuka file Excel yg ada, bukannya dengan perintah menambah workbook baru

Code:
Dim oExcel As Object
Dim oBook As Object
Set oExcel = CreateObject("Excel.Application")

[I][COLOR="#FF0000"]'Kalau membuat file baru :[/COLOR][/I]
'Set oBook = oExcel.Workbooks.Add

[I][COLOR="#FF0000"]'Kalau memakai file yg sudah ada :[/COLOR][/I]
oExcel.Workbooks.Open namaFileExcel
Set oBook = oExcel.Workbooks(1)

Untuk kode VB6 nya, silahkeun download file ini (lengkap dengan seluruh file yg diperlukan) :
link

kembali kasih gan , ini udah ada yang jawab emoticon-Mewek



wassalam. emoticon-I Love Indonesia (S) emoticon-I Love Kaskus (S) emoticon-Cendol (S)

emoticon-Cape d... (S)




Meneketehe? emoticon-Matabelo


tengkyu gan emoticon-Malu