Untuk mengambil gambar dari web menggunakan Visual Basic for Applications (VBA)

Untuk mengambil gambar dari web menggunakan Visual Basic for Applications (VBA) di Microsoft Access, Anda dapat menggunakan kode seperti ini:

'Deklarasikan variabel

Dim xmlhttp As Object

Dim gambar As Object

'Buat objek xmlhttp

Set xmlhttp = CreateObject("MSXML2.XMLHTTP")

'Tentukan URL sumber gambar

url = "https://www.example.com/gambar.jpg"

'Ambil gambar dari URL

xmlhttp.Open "GET", url, False

xmlhttp.Send

'Buat objek gambar

Set gambar = CreateObject("ADODB.Stream")

'Simpan gambar ke dalam memori

gambar.Type = 1

gambar.Open

gambar.Write xmlhttp.responseBody

gambar.SaveToFile "C:\gambar.jpg", 2

'Hapus objek

gambar.Close

Set gambar = Nothing

Set xmlhttp = Nothing

Anda dapat mengganti URL sumber gambar sesuai dengan alamat web gambar yang ingin Anda ambil. Selain itu, Anda juga dapat mengganti `C:\gambar.jpg

Tweet

Subscribe to receive free email updates: