VBA Có Thể Làm được 1 Chương Trình đồng Bộ Web (giống Như Khai ...

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Lập Trình với Excel
Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. VBA có thể làm được 1 chương trình đồng bộ web (giống như khai báo Hải Quan) không? Hay dùng gì?

Thread starter phanminhphuong
Ngày gửi 9/10/17

phanminhphuong

Thành viên hoạt động

Tham gia 26/7/13 Bài viết 127 Được thích 68 Chào mọi người! Mình muốn hỏi VBA/ VB có đủ các công cụ cần thiết để làm được 1 phần mềm khai báo Hải Quan không (https://vnsw.gov.vn). Giống như cách mà chương trình ECUS - VNACCS khai báo Hải Quan điện tử ấy. * Hoặc như phần mềm đồng bộ dữ liệu khai báo này: https://www.youtube.com/playlist?list=PLUSBtpiJVLjJzOdnZmYhL3WZ0tOKjFaCs trước thấy họ làm hay quá mà liên lạc 2B System Co., LTD không trả lời, giờ chả tìm thấy ở đâu nữa. Nếu VBA không thể làm được vui lòng cho biết ngôn ngữ lập trình nào ổn/ học và áp dụng nhanh & có thể xử lý được yêu cầu, mình không ngại mất thời gian để tìm hiểu và làm vì mình sống cả đời với bạn https://vnsw.gov.vn này. Mong mọi người cho lời khuyên/ hướng đi hợp lý. Chân thành cám ơn!

Tiếp 1 of 3

Go to page

Tiếp tục Tiếp Last Sắp xếp theo thời gian sắp xếp theo bầu chọn be_09

be_09

Biên Hòa, Đồng Nai

Tham gia 9/4/11 Bài viết 9,972 Được thích 9,870 Nghề nghiệp Công chức Có cái tương tự nè:

Upvote 0 P

phanminhphuong

Thành viên hoạt động

Tham gia 26/7/13 Bài viết 127 Được thích 68

be09 đã viết: Có cái tương tự nè: View attachment 184548 Nhấp chuột vào đây để mở rộng...

Cám ơn bạn! Theo hình thì chương trình xuất nhập khẩu chỉ để quản lý dữ liệu xuất nhập trên excel đúng không ạ? Mình muốn tìn hiểu 1 chương trình nói nôm na là đồng bộ dữ liệu người dùng khai báo (có thể trên excel) với dữ liệu trên web (lấy dữ liệu từ web về, tải dữ liệu lên). Dùng control webbrowser của VBA thì thấy là yếu và chậm. Ngôn ngữ lập trình nào phù hợp nhất với việc thao tác, lấy dữ liệu, đồng bộ dữ liệu với web vậy các bạn? Lần chỉnh sửa cuối: 10/10/17 Upvote 0 H

hoi_joker

Thành viên mới

Tham gia 14/9/07 Bài viết 41 Được thích 17

phanminhphuong đã viết: Cám ơn bạn! Theo hình thì chương trình xuất nhập khẩu chỉ để quản lý dữ liệu xuất nhập trên excel đúng không ạ? Mình muốn tìn hiểu 1 chương trình nói nôm na là đồng bộ dữ liệu người dùng khai báo (có thể trên excel) với dữ liệu trên web (lấy dữ liệu từ web về, tải dữ liệu lên). Dùng control webbrowser của VBA thì thấy là yếu và chậm. Ngôn ngữ lập trình nào phù hợp nhất với việc thao tác, lấy dữ liệu, đồng bộ dữ liệu với web vậy các bạn? Nhấp chuột vào đây để mở rộng...

Chả có cách nào dung VBA khả thi đâu, cái này điều khiển Internet Explorer để đăng nhập và upload file làm tồi hồi còn e-manifest : https://e-manifest.customs.gov.vn Mã:Sao chép. Option Explicit Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Global Const SW_MAXIMIZE = 3 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Sub Add_Document() Dim oIE As Object ' InternetExplorer.Application Dim sURL As String Dim UserN As Object ' MSHTML.IHTMLElement Dim PW As Object ' MSHTML.IHTMLElement 'Dim Element As Object ' HTMLButtonElement Dim btnInput As Object ' MSHTML.HTMLInputElement Dim ElementCol As Object ' MSHTML.IHTMLElementCollection 'Dim Link As Object ' MSHTML.HTMLAnchorElement Dim ieDoc As Object 'MSHTML.HTMLDocument Dim i As Long, j As String, k, m As String, n As String, r As Long, s As String, t, u As String, v As String, x As String, y As String Dim sText As String, startS As String, endS As String, sMv As String Const Agency As String = "Agency" On Error Resume Next Application.ScreenUpdating = False Application.Visible = False Select Case Application.Assistant.DoAlert("NOTICE - " & Agency, [U64].Value, msoAlertButtonOKCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbCancel GoTo TheEnd End Select Kill_IE_Process 'Dong tat ca cac cua so IE '===== VAO TRANG THEM HO SO E-MANIFEST ============ Set oIE = CreateObject("InternetExplorer.Application") sURL = "https://e-manifest.customs.gov.vn/profile/record/list.aspx" With oIE .Navigate sURL .Visible = True apiShowWindow .hwnd, SW_MAXIMIZE 'Loop until the page finishes loading Do While .Busy Or .ReadyState <> 4: DoEvents: Loop End With '===== NHAN VAO NUT CONFIRM ======================== Set ieDoc = oIE.Document Set btnInput = ieDoc.all.Item("overridelink") btnInput.Click Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '===== DANG NHAP =================================== u = "ctl00$PlaceHolderMain$signInControl$" v = "ctl00$ctl27$wPshipList$ctl00$" x = "ctl00_ctl27_wPshipList_ctl00" y = "__tab_" & x & "_tabDocument_" Set UserN = ieDoc.getElementsByName(u & "UserName") If Not UserN Is Nothing Then UserN(0).Value = "577777777" 'UserName (thay doi phu hop) End If Set PW = ieDoc.getElementsByName(u & "password") If Not PW Is Nothing Then PW(0).Value = "password" 'Password End If Set btnInput = ieDoc.all.Item("ctl00_PlaceHolderMain_signInControl_login") btnInput.Click 'Click Dang Nhap Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '==================================================== sText = ieDoc.body.innerHTML 'Lay Source code Web startS = InStr(sText, x & "_ddlShip") endS = InStr(sText, v & "ddlPort") sText = Mid(sText, startS, endS - startS) 'Lay doan giua ten tau trong Source web If InStr(UCase(sText), UCase([D6])) > 0 Then 'NEU TAU CO TRONG HE THONG E-MANIFEST ReDo: sURL = "https://e-manifest.customs.gov.vn/profile/record/add.aspx" oIE.Navigate sURL Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '===== DIEN THONG TIN TAO HO SO TAU ============= For i = 1 To 8 Select Case i 'Case 1: j = v & "ddlShip": k = sRet 'Ten tau Case 1: j = v & "ddlDocumentType": k = [E5] 'Loai ho so Case 2: j = v & "ddlPort": k = [E8] 'Ten cang Case 3: j = v & "txtCaption": k = UCase(Trim([D7])) 'Master name Case 4: j = v & "txtTime": k = [E10] 'Thoi gian den/ chay Case 5: j = v & "ddlHours": k = [D13] 'Gio Case 6: j = v & "ddlMinutes": k = [D14] 'Phut Case 7: j = v & "txtVoyageNumber": k = UCase(Trim([D15])) 'Voy no. Case 8: j = v & "txtRemarks": k = UCase(Trim([D16])) 'Remarks End Select Set UserN = ieDoc.getElementsByName(j) If Not UserN Is Nothing Then UserN(0).Value = k End If Next i apiShowWindow oIE.hwnd, SW_SHOWMINIMIZED Application.Visible = True Select Case Application.Assistant.DoAlert("FILL VSL NAME - " & Agency, [U75].Value, msoAlertButtonOKCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbOK Case Else GoTo TheEnd End Select Application.Visible = False '===== NHAN NUT TAO HO SO TAU =================== Set btnInput = ieDoc.all.Item(x & "_lblAdd") btnInput.Click 'Click Dang Nhap Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '===== TAI/ UPLOAD BAN KHAI HANG HOA ============ oIE.Visible = False Select Case Application.Assistant.DoAlert("UPLOAD GOOD DECLARATION - " & Agency, [U65].Value, msoAlertButtonOKCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbCancel GoTo TheEnd End Select oIE.Visible = True u = x & "_tabDocument_TabPanel" Set btnInput = ieDoc.all.Item(u & "0_upFileGoodDecralation_rdnStatus_1") btnInput.Click 'chon nut thay doi Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "0_upFileGoodDecralation_fileUpload") btnInput.Click 'mo cua so chon file upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "0_upFileGoodDecralation_lbtnSave") btnInput.Click 'Nhan vao nut Upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '===== TAI/ UPLOAD CARGO MANIFEST =============== oIE.Visible = False Select Case Application.Assistant.DoAlert("UPLOAD CARGO MANIFEST - " & Agency, [U66].Value, msoAlertButtonYesNoCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbYes UploadManifest: oIE.Visible = True Set btnInput = ieDoc.all.Item(y & "TabPanel1") btnInput.Click 'chuyen tab Upload BL Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '----------------- Set btnInput = ieDoc.all.Item(u & "1_upFileHouseBill_rdnStatus_1") btnInput.Click 'chon nut thay doi Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '----------------- Set btnInput = ieDoc.all.Item(u & "1_upFileHouseBill_fileUpload") btnInput.Click 'mo cua so chon file upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '----------------- Set btnInput = ieDoc.all.Item(u & "1_upFileHouseBill_lbtnSave") btnInput.Click 'Nhan vao nut Tai len Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop '----------------- oIE.Visible = False If MsgBox("Do you want to upload other Cargo Manifest?", vbOKCancel, "UPLOAD OTHER CARGO MANIFEST") = vbOK Then GoTo UploadManifest Case vbCancel GoTo TheEnd End Select '===== TAI/ UPLOAD BAN KHAI CHUNG ================ oIE.Visible = False Select Case Application.Assistant.DoAlert("UPLOAD GENERAL DECLARATION - " & Agency, [U67].Value, msoAlertButtonYesNoCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbYes oIE.Visible = True Set btnInput = ieDoc.all.Item(y & "TabPanel2") btnInput.Click 'chuyen tab Upload Bkc Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "2_upFileGeneralDecralation_rdnStatus_1") btnInput.Click 'chon nut thay doi Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "2_upFileGeneralDecralation_fileUpload") btnInput.Click 'mo cua so chon file upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "2_upFileGeneralDecralation_lbtnSave") btnInput.Click 'Nhan vao nut Upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Case vbCancel GoTo TheEnd End Select '===== TAI/ UPLOAD CREW LIST ===================== oIE.Visible = False Select Case Application.Assistant.DoAlert("UPLOAD CREW LIST - " & Agency, [U68].Value, msoAlertButtonYesNoCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbYes oIE.Visible = True Set btnInput = ieDoc.all.Item(y & "TabPanel3") btnInput.Click 'chuyen tab Upload Crew List Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "3_upFileCrew_rdnStatus_1") btnInput.Click 'chon nut thay doi Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "3_upFileCrew_fileUpload") btnInput.Click 'mo cua so chon file upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "3_upFileCrew_lbtnSave") btnInput.Click 'Nhan vao nut Upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Case vbCancel GoTo TheEnd End Select '===== TAI/ UPLOAD CREW 'S EFFECT ================ oIE.Visible = False Select Case Application.Assistant.DoAlert("UPLOAD CREW 'S EFFECT DECLARATION - " & Agency, [U69].Value, msoAlertButtonYesNoCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbYes oIE.Visible = True Set btnInput = ieDoc.all.Item(y & "TabPanel4") btnInput.Click 'chuyen tab Upload Bkc Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "4_upFileCrewEffect_rdnStatus_1") btnInput.Click 'chon nut thay doi Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "4_upFileCrewEffect_fileUpload") btnInput.Click 'mo cua so chon file upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "4_upFileCrewEffect_lbtnSave") btnInput.Click 'Nhan vao nut Upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Case vbCancel GoTo TheEnd End Select '===== TAI/ UPLOAD SHIP 'S STORE ================= oIE.Visible = False Select Case Application.Assistant.DoAlert("UPLOAD SHIP 'S STORE DECLARATION - " & Agency, [U70].Value, msoAlertButtonYesNoCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbYes oIE.Visible = True Set btnInput = ieDoc.all.Item(y & "TabPanel5") btnInput.Click 'chuyen tab Upload Bkc Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "5_upFileShipStore_rdnStatus_1") btnInput.Click 'chon nut thay doi Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "5_upFileShipStore_fileUpload") btnInput.Click 'mo cua so Upload ban khai hang hoa Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Set btnInput = ieDoc.all.Item(u & "5_upFileShipStore_lbtnSave") btnInput.Click 'Nhan vao nut Upload Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Case vbCancel GoTo TheEnd End Select oIE.Visible = False Application.Visible = True Select Case Application.Assistant.DoAlert("NOTICE - " & Agency, [U71].Value, msoAlertButtonOK, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) End Select '***** NEU TAU CHUA CO TRONG HE THONG => TAO TAU MOI ***** Else Application.Visible = False sURL = "https://e-manifest.customs.gov.vn/profile/ship/add.aspx" oIE.Navigate sURL oIE.Visible = False Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Select Case Application.Assistant.DoAlert("CREAT NEW VESSEL - " & Agency, [U72].Value, msoAlertButtonYesNoCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbYes 'Tao tau tu dong tren web For k = 1 To 15 Select Case k Case 1: j = v & "txtName": m = "VESSEL 'S NAME?": n = "NHAP TEN TAU": s = Trim([D6]): t = 2 Case 2: j = v & "txtIMO": m = "IMO NUMBER?": n = sMv & "IMO NUMBER": s = "[IMO No.]": t = 1 Case 3: j = v & "txtCall": m = "CALL SIGN?": n = sMv & "HO HIEU": s = "[Call sign]": t = 2 Case 4: j = v & "txtRegisterNumber": m = "REGISTED NUMBER?": n = sMv & "SO DANG KY": s = "[Register No.]": t = 2 Case 5: j = v & "txtFishing": m = "REGISTED NUMBER (fishing boat)?": n = sMv & "SO DANG KY TAU CA": s = s: t = 2 Case 6: j = v & "txtDate": m = "DATE OF REGISTRATION (DD/MM/YYYY)?": n = sMv & "REGISTED DATE": s = "DD/MM/YYYY": t = 2 Case 7: j = v & "txtNetTonnage": m = "NET TONNAGE?": n = sMv & "TRONG TAI THUAN": s = "[NRT]": t = 1 Case 8: j = v & "txtNet": m = "NRT (fishing boat)?": n = sMv & "TRONG TAI THUAN TAU CA": s = s: t = 1 Case 9: j = v & "txtGross": m = "GROSS TONNAGE?": n = sMv & "TONG DUNG TICH": s = "[GRT]": t = 1 Case 10: j = v & "txtGrossTonnage": m = "GRT (fishing boat)": n = sMv & "TONG DUNG TICH TAU CA": s = s: t = 1 Case 11: j = v & "txtWeightTonnage": m = "DEAD WEIGHT?": n = sMv & "TRONG TAI": s = "[DWT]": t = 1 Case 12: j = v & "txtLOA": m = "LOA?": n = sMv & "CHIEU DAI LON NHAT": s = "[LOA]": t = 1 Case 13: j = v & "txtBreadth": m = "BREATH?": n = sMv & "CHIEU RONG": s = "[Chieu rong]": t = 1 Case 14: j = v & "txtSailingSpeed": m = "VESSEL 'S SPEED?": n = sMv & "TOC DO": s = 12: t = 2 Case 15: j = v & "txtRemarks": m = "REMARKS": n = sMv & "GHI CHU": s = "": t = 2 End Select Set UserN = ieDoc.getElementsByName(j) If Not UserN Is Nothing Then UserN(0).Value = UCase(Application.InputBox(m, n, s, , , , , t)) If k = 1 Then sMv = "MV. " & UserN(0).Value & " - " If k = 4 Or k = 7 Or k = 9 Then s = UserN(0).Value End If End If Next k Set UserN = ieDoc.getElementsByName(v & "ddlProcessType") If Not UserN Is Nothing Then UserN(0).Value = 9 '9 = Registration ; 5 = Correction ; 1 = Cancellation End If Set UserN = ieDoc.getElementsByName(v & "ddDanhSachHangTau") If Not UserN Is Nothing Then UserN(0).Value = 217 '217 = CTY CP DLHH VINACOMIN End If Set ElementCol = ieDoc.getElementsByTagName("input") For Each btnInput In ElementCol If btnInput.ID = x & "_chkSubmitTo_0" Or btnInput.ID = x & "_chkSubmitTo_1" Or btnInput.ID = x & "_chkSubmitTo_2" Then btnInput.Click End If Next oIE.Visible = True Application.Visible = True Do While oIE.LocationURL = sURL Select Case Application.Assistant.DoAlert("CREAT NEW VESSEL - " & Agency, [U73].Value, msoAlertButtonOKCancel, msoAlertIconInfo, msoAlertDefaultFirst, msoAlertCancelFirst, False) Case vbOK Set btnInput = ieDoc.all.Item(x & "_lblAdd") btnInput.Click 'Nhan vao nut Tai len oIE.Visible = True Do While oIE.Busy Or oIE.ReadyState <> 4: DoEvents: Loop Case vbCancel GoTo TheEnd End Select Loop GoTo ReDo 'Luu tau moi va quay lai tao ho so E-Manifest Case vbCancel Kill_IE_Process End Select 'Ket thuc truong hop tao tau moi End If TheEnd: oIE.Visible = True Set oIE = Nothing Set ieDoc = Nothing Set UserN = Nothing Set PW = Nothing Set btnInput = Nothing Set ElementCol = Nothing Application.Visible = True Application.ScreenUpdating = True End Sub

File đính kèm

KHAI BAO E-MANIFEST.xlsm 53.3 KB · Đọc: 78

Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,744 Được thích 10,249 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

phanminhphuong đã viết: Cám ơn bạn! Theo hình thì chương trình xuất nhập khẩu chỉ để quản lý dữ liệu xuất nhập trên excel đúng không ạ? Mình muốn tìn hiểu 1 chương trình nói nôm na là đồng bộ dữ liệu người dùng khai báo (có thể trên excel) với dữ liệu trên web (lấy dữ liệu từ web về, tải dữ liệu lên). Dùng control webbrowser của VBA thì thấy là yếu và chậm. Ngôn ngữ lập trình nào phù hợp nhất với việc thao tác, lấy dữ liệu, đồng bộ dữ liệu với web vậy các bạn? Nhấp chuột vào đây để mở rộng...

Việc truy xuất dữ liệu vào Web là không thể nếu người lập trình không có tài khoản có quyền truy vấn CSDL. Nếu có làm thì cùng lắm là lấy được dữ liệu tĩnh trên web dựa vào tag <tb> (hoặc có thể cái khác). Nguyễn lý của web là: TRUY VẤN CSDL -> RECORDSER -> HTML để hiển thị phía client (trình duyệt) cho người sử dụng. Từ Web - LẤY THÔNG TIN TRÊN CÁC MỤC NHẬP -> CSDL. Tất cả các việc liên quan đến CSDL trên đều là người lập trình web có tài khoản để Connection tới CSDL (MySQL, SQL Server,...). Như vậy mấu chốt là làm sao để có thông tin kết nối và CSDL chứ không phải lấy dữ liệu từ web rồi đẩy vào web. Web chỉ như một bản report hiển thị những gì trong CSDL có mà thôi. Ngôn ngữ lập trình nào nếu có thông tin kết nối nối vào CSDL đều làm được hết không cứ phải C#, Delphi,.VB, VBA.... (Nếu ai đã có thông tin truy xuất CSDL share lên đây đồng nghĩa là CSDL dùng cho website trên đã bị hack!). Upvote 0

doveandrose

hello

Tham gia 3/7/09 Bài viết 2,372 Được thích 2,263

hoi_joker đã viết: Chả có cách nào dung VBA khả thi đâu, cái này điều khiển Internet Explorer để đăng nhập và upload file làm tồi hồi còn e-manifest : https://e-manifest.customs.gov.vn Nhấp chuột vào đây để mở rộng...

Mình thấy Bạn đang điều khiển IE bằng code VBA đấy chứ, sao lại nói là chả có cách nào dùng VBA

Mình còn nghe nói diễn đàn này có 1 số bạn nào đó không điều khiển trình duyệt nào mà vẫn tự động đăng nhập, tự động Upload File, tự động gửi bài viết (gọi tắt là tự động trả lời) lên diễn đàn GPE đấy. !$@!!

Upvote 0 H

hoi_joker

Thành viên mới

Tham gia 14/9/07 Bài viết 41 Được thích 17

doveandrose đã viết: Mình thấy Bạn đang điều khiển IE bằng code VBA đấy chứ, sao lại nói là chả có cách nào dùng VBA Mình còn nghe nói diễn đàn này có 1 số bạn nào đó không điều khiển trình duyệt nào mà vẫn tự động đăng nhập, tự động Upload File, tự động gửi bài viết (gọi tắt là tự động trả lời) lên diễn đàn GPE đấy. Nhấp chuột vào đây để mở rộng...

Mình nói dùng VBA không khả thi ý là ko nhanh/ không phù hợp. Thà khai báo bằng tay còn hơn. Chứ VBA khả năng khó thực hiện được như phần mềm khai báo hải quan (truy cập CSDL, load CSDL, thay đổi CSDL, cập nhật CSDL ...) trên phần mềm VBA. Quá khó

Upvote 0 P

phanminhphuong

Thành viên hoạt động

Tham gia 26/7/13 Bài viết 127 Được thích 68

hoi_joker đã viết: Chứ VBA khả năng khó thực hiện được như phần mềm khai báo hải quan (truy cập CSDL, load CSDL, thay đổi CSDL, cập nhật CSDL ...) trên phần mềm VBA. Nhấp chuột vào đây để mở rộng...

Đúng là mình muốn tìm hiểu cách làm được phần mềm có chức năng như trên. Upvote 0 be_09

be_09

Biên Hòa, Đồng Nai

Tham gia 9/4/11 Bài viết 9,972 Được thích 9,870 Nghề nghiệp Công chức

phanminhphuong đã viết: Đúng là mình muốn tìm hiểu cách làm được phần mềm có chức năng như trên. Nhấp chuột vào đây để mở rộng...

Đang thất nghiệp nên bài 2 đưa lên chơi cho vui thôi. Còn cái vụ bạn nêu bài 1, thì nên bám và liên hệ với Nguyễn Duy Tuân (Hà Nội), đã có ý kiến ở bài 5 để được tư vấn. Lần chỉnh sửa cuối: 10/10/17 Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,744 Được thích 10,249 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

be09 đã viết: Đang thất nghiệp nên bài 2 đưa lên chơi cho vui thôi. Còn cái vụ bạn nêu bài 1, thì nên bám và liên hệ với Nguyễn Duy Tuân (Hà Nội), đã có ý kiến ở bài 5 để được tư vấn. Nhấp chuột vào đây để mở rộng...

Em đang muốn lao động là bác tạo điều kiện ngay á. Cảm ơn Bác!

Upvote 0 P

phanminhphuong

Thành viên hoạt động

Tham gia 26/7/13 Bài viết 127 Được thích 68

Nguyễn Duy Tuân đã viết: Em đang muốn lao động là bác tạo điều kiện ngay á. Cảm ơn Bác! Nhấp chuột vào đây để mở rộng...

Vui lòng cho mình 1 số ví dụ hoặc phần mềm giao tiếp với web (truy cập CSDL, tải CSDL, thay đổi CSDL, cập nhật CSDL ...) mà không phải là dùng VBA điều khiển Internet Explorer. Xin cám ơn! Upvote 0 befaint

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,529 Được thích 19,713

phanminhphuong đã viết: Vui lòng cho mình 1 số ví dụ hoặc phần mềm giao tiếp với web (truy cập CSDL, tải CSDL, thay đổi CSDL, cập nhật CSDL ...) mà không phải là dùng VBA điều khiển Internet Explorer. Xin cám ơn! Nhấp chuột vào đây để mở rộng...

Sao bạn không gọi trực tiếp anh ấy cho nhanh.Tiện thể có thể hỏi han thêm thông tin khác. http://www.bluesofts.net/index.php?option=com_phocamaps&view=map&id=1&Itemid=64 Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,744 Được thích 10,249 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

phanminhphuong đã viết: Vui lòng cho mình 1 số ví dụ hoặc phần mềm giao tiếp với web (truy cập CSDL, tải CSDL, thay đổi CSDL, cập nhật CSDL ...) mà không phải là dùng VBA điều khiển Internet Explorer. Xin cám ơn! Nhấp chuột vào đây để mở rộng...

Như mình đã nói bài trên. Dữ liệu biến đổi trên web hoàn toàn lấy từ CSDL. Vậy bạn dùng bất kể ngôn ngữ gì để có thể INSERT, UPDATE, DELETE, SELECT vào CSDL là xong. Khi bạn thay đổi dữ liệu rồi thì web nó cứ hiển thị đúng như trong CSDL thôi. Mỗi trang web có một cấu trúc CSDL khác nhau (theo tính chất nghiệp vụ của công ty), loại CSDL cũng có thể khác nhau ( phổ biến hiện nay là SQL Server, MySQL). Mình chỉ bày hướng cho bạn làm thôi chứ để làm một ví dụ hơi mất nhiều thời gian vì mình không chuyên về web. Bạn sẽ rất rất khó để có tài khoản kết nối vào một CSDL của một công ty nào đó vì đó là bảo mật dữ liệu của họ, trừ phi họ công bố. Vậy nên chỉ học để hiểu bản chất, khi cần thì truy xuất vào web của riêng mình thì được. Upvote 0

AutoReply

Thành viên tiêu biểu

Tham gia 18/2/16 Bài viết 566 Được thích 739

Nguyễn Duy Tuân đã viết: Như mình đã nói bài trên. Dữ liệu biến đổi trên web hoàn toàn lấy từ CSDL. Vậy bạn dùng bất kể ngôn ngữ gì để có thể INSERT, UPDATE, DELETE, SELECT vào CSDL là xong. Khi bạn thay đổi dữ liệu rồi thì web nó cứ hiển thị đúng như trong CSDL thôi. Mỗi trang web có một cấu trúc CSDL khác nhau (theo tính chất nghiệp vụ của công ty), loại CSDL cũng có thể khác nhau ( phổ biến hiện nay là SQL Server, MySQL). Mình chỉ bày hướng cho bạn làm thôi chứ để làm một ví dụ hơi mất nhiều thời gian vì mình không chuyên về web. Bạn sẽ rất rất khó để có tài khoản kết nối vào một CSDL của một công ty nào đó vì đó là bảo mật dữ liệu của họ, trừ phi họ công bố. Vậy nên chỉ học để hiểu bản chất, khi cần thì truy xuất vào web của riêng mình thì được. Nhấp chuột vào đây để mở rộng...

sau khi hiểu bản chất mà anh nói rồi nhưng không có tài khoản kết nối vào CSDL của trang Web thì sao anh ? bó tay chịu trói chăng ? +-+-+-+

Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,744 Được thích 10,249 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

AutoReply đã viết: sau khi hiểu bản chất mà anh nói rồi nhưng không có tài khoản kết nối vào CSDL của trang Web thì sao anh ? bó tay chịu trói chăng ? Nhấp chuột vào đây để mở rộng...

Không quan trọng là có web hay không có. Như mình đã nói mạch máu của web là CSDL. Bạn học tốt về kết nối và truy xuất CSDL là ok, còn khi bạn biết CSDL nào đó của pm nào, của web nào thì chỉ cần kết nối đến CSDL , INSERT, UPDATE đúng table là xong thôi. Bạn có thể dùng ADO để học việc này. Tuy nhiên hãy học theo các bước: 1. Học cách cài và quản trị một loại CSDL Client-Server: MySQL, SQL Server. Bạn học MySQL vì nó phổ biến cho nhiều website hiện nay, đặc biệt các web viết bằng PHP. 2. Học các câu lệnh SELECT, INERT, UPDATE, DELETE tới CSDL MySQL.. 3. Dùng ADO kết nối và làm việc với CSDL MySQL. Mỗi bước trên bạn tìm Google ra hết nhé! Upvote 0 befaint

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,529 Được thích 19,713

Nguyễn Duy Tuân đã viết: Bạn có thể dùng ADO để học việc này. Tuy nhiên hãy học theo các bước: Nhấp chuột vào đây để mở rộng...

Híc. Anh ơi, "Cô Rô bốt" xinh đẹp ở trên đã qua mấy bước anh hướng dẫn lâu rồi. $-\\/.$ $-\\/.$ Upvote 0 V

VetMini

Ăn cùng góc phố

Tham gia 21/12/12 Bài viết 17,663 Được thích 24,475

befaint đã viết: Híc. Anh ơi, "Cô Rô bốt" xinh đẹp ở trên đã qua mấy bước anh hướng dẫn lâu rồi. $-\\/.$ $-\\/.$ Nhấp chuột vào đây để mở rộng...

Bạn có từng đồng hành với người ta hôn mà dám nói vậy? Cái cô này đâu có hề qua bước nào. Ả ta tự động thấy ở đích. Mình bò mệt phở hơi tai mà ngẫng đầu lên vẫn thấy ả ta dẫn trước mặt. Upvote 0 befaint

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,529 Được thích 19,713

VetMini đã viết: ngẫng đầu lên vẫn thấy ả ta dẫn trước mặt. Nhấp chuột vào đây để mở rộng...

"mát con mắt" thì lúc nào cũng dẫn trước mặt mà anh.

Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,744 Được thích 10,249 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

befaint đã viết: Híc. Anh ơi, "Cô Rô bốt" xinh đẹp ở trên đã qua mấy bước anh hướng dẫn lâu rồi. $-\\/.$ $-\\/.$ Nhấp chuột vào đây để mở rộng...

Thế thì chờ có tài khoản kết nối csdl thôi

. Thường khi viết ứng dụng khai thác data dùng chung thì cty họ sẽ cấp cho một tài khoản đẻ ghi nhận thông tin mà không làm nguy hiểm tới hệ thống. Nếu lấy được thông tin trong csdl dễ dàng thì danh sách tài khoản của các diễn đàn vào tay mình hết

Upvote 0

thuyyeu99

Trùm Nhiều Chuyện

Tham gia 6/6/08 Bài viết 1,729 Được thích 875

phanminhphuong đã viết: Chào mọi người! Nếu VBA không thể làm được vui lòng cho biết ngôn ngữ lập trình nào ổn/ học và áp dụng nhanh & có thể xử lý được yêu cầu, mình không ngại mất thời gian để tìm hiểu và làm vì mình sống cả đời với bạn https://vnsw.gov.vn này. Mong mọi người cho lời khuyên/ hướng đi hợp lý. Chân thành cám ơn! Nhấp chuột vào đây để mở rộng...

Cái vụ này theo mình nghĩ bạn rành về cái nào thì đi theo cái đó Visua Studio, delphi, java.., (mà còn cái vụ viết xong rồi chạy được đa nền tảng nữa) Upvote 0

Tiếp 1 of 3

Go to page

Tiếp tục Tiếp Last Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây. Web KT

Bài viết mới nhất

Question

Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu

binhtv69
Thứ sáu lúc 09:01
Lập Trình với Excel

2 3 Trả lời 41 Đọc 837 12 phút trước VetMini V

Giúp về xử lý số liệu trong excel!

heocondethuong1235
Hôm nay lúc 13:45
Những vấn đề chung

Trả lời 4 Đọc 96 51 phút trước VetMini V L Chuyển 600 câu hỏi trắc nghiệm sang excel theo mẫu

linhxinhthat
Hôm qua, lúc 15:52
Hàm và công thức Excel

Trả lời 2 Đọc 119 Hôm nay lúc 21:35 HUONGHCKT H N Định mức nguyên vật liệu

nghiemcongdien
9/11/24
Google Spreadsheets

2 Trả lời 35 Đọc 967 Hôm nay lúc 21:32 ptm0412

Question

Xóa dòng trùng.

DMQ
Hôm qua, lúc 21:16
Lập Trình với Excel

Trả lời 11 Đọc 221 Hôm nay lúc 17:16 DMQ

Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

ongke0711
6/10/24
Lập Trình với Excel

12 13 14 Trả lời 260 Đọc 16K Hôm nay lúc 16:33 thanchetvnt T

Lỗi mở file excel đã được lưu trên USB

luuviettrung
Hôm nay lúc 16:31
Hỏi đáp những vấn đề khác

Trả lời 0 Đọc 28 Hôm nay lúc 16:31 luuviettrung

H Code lấy đáp án từ file word

Hoale85
Hôm nay lúc 11:16
Những vấn đề chung

Trả lời 7 Đọc 141 Hôm nay lúc 16:20 Hoale85 H A Nhờ mọi người làm giúp công thức Thống kê đếm ngày

acrox84
Hôm qua, lúc 11:03
Làm việc với ngày tháng và thời gian

Trả lời 8 Đọc 194 Hôm nay lúc 15:23 acrox84 A J Hàm tách dữ liệu ra nhiều cột

jusend
Hôm qua, lúc 16:43
Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 138 Hôm nay lúc 14:58 jusend J K Tự động nhập dữ liệu tăng ca

Ks.longvandinh1988
Hôm nay lúc 14:17
Excel và Kế Toán

Trả lời 2 Đọc 67 Hôm nay lúc 14:54 Duy Tùng 9x

L lập công thức cho lịch làm và ngày nghỉ tự động thay đổi theo từng tháng

Lan Ny
Hôm nay lúc 11:55
Hàm và công thức Excel

Trả lời 1 Đọc 64 Hôm nay lúc 13:20 hoangtuaotrang_hp_vn H

Hướng dẫn lập trình với Google Sheets và Excel Online bằng Excel VBA và Add-in A-Tools v10

Nguyễn Duy Tuân
Hôm nay lúc 09:21
BLUESOFTS: A-Excel, A-Tools

Trả lời 1 Đọc 86 Hôm nay lúc 11:05 Nguyễn Duy Tuân

[GPE] TALK SHOW ĐỊNH KỲ

GPE-Trợ Lý
Hôm nay lúc 10:07
Học tập Online

Trả lời 0 Đọc 97 Hôm nay lúc 10:07 GPE-Trợ Lý

N Tìm công thức sắp xếp lại vị trí

Ngocminh19
Hôm qua, lúc 18:56
Hàm và công thức Excel

Trả lời 5 Đọc 128 Hôm nay lúc 08:21 Ngocminh19 N

Question

Chọn các số trong dãy số để ra 1 số tổng cho trước

MinhKhai
20/8/13
Lập Trình với Excel

2 Trả lời 28 Đọc 16K Hôm qua, lúc 20:28 tienhuy832011 T T

Question

Tìm các dòng có chứa giá trị cộng tổng sấp xỉ bằng số cho trước

tienhuy832011
Thứ ba lúc 20:07
Lập Trình với Excel

Trả lời 17 Đọc 239 Hôm qua, lúc 20:20 tienhuy832011 T

Question

Hỗ trợ khắc phục lỗi Copy cùng 1 bảng tính sang nhiều vị trí trên Word bị lỗi Clipboard

Toanke063
Thứ sáu lúc 12:11
Lập Trình với Excel

Trả lời 8 Đọc 295 Hôm qua, lúc 18:49 Toanke063

Nhờ giúp: Nhận vùng giữ liệu theo số biên bản nghiệm thu

Nguyễn Hậu LK
Hôm qua, lúc 16:18
Hỏi đáp những vấn đề khác

Trả lời 1 Đọc 68 Hôm qua, lúc 17:18 BuiQuangThuan B

Em test đầu vào mà làm không được câu 5 và những hàm liên quan đến năm sinh ạk

raygpt
Thứ ba lúc 22:52
Hàm và công thức Excel

Trả lời 6 Đọc 155 Hôm qua, lúc 17:15 hvnhpro H Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

Hoàng Tuấn 868 152
ptm0412 79
VetMini 47
HUONGHCKT 42
ongke0711 41
hoangtuaotrang_hp_vn 35
SA_DQ 34
befaint 33
Tuấn Bụng Bự 31
bebo021999 31
BuiQuangThuan 28
HeSanbi 25
huuthang_bd 23
HieuCD 18
huhumalu 17
DeTong 16
CHAOQUAY 16
Nguyễn Diêu Hiền 15
Manhhung90 13
Duy Tùng 9x 13

Thành viên có điểm tương tác cao nhất tháng

Hoàng Tuấn 868 131
HUONGHCKT 77
ptm0412 76
VetMini 64
HeSanbi 63
ongke0711 58
HieuCD 44
SA_DQ 44
BuiQuangThuan 42
befaint 41
huuthang_bd 39
bebo021999 30
hoangtuaotrang_hp_vn 30
GPE-Trợ Lý 29
Phuocam 19
DeTong 16
huhumalu 15
phuongnam366377 12
PhanTuHuong 12
Duy Tùng 9x 12

Trang chủ
Diễn đàn
Lập Trình với Excel
Lập Trình với Excel

Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom

Từ khóa » điều Khiển Ie Bằng Vba

Tìm kiếm

phanminhphuong

Thành viên hoạt động

Go to page

be_09

Biên Hòa, Đồng Nai

phanminhphuong

Thành viên hoạt động

hoi_joker

Thành viên mới

File đính kèm

Nguyễn Duy Tuân

Nghị Hách

doveandrose

hello

hoi_joker

Thành viên mới

phanminhphuong

Thành viên hoạt động

be_09

Biên Hòa, Đồng Nai

Nguyễn Duy Tuân

Nghị Hách

phanminhphuong

Thành viên hoạt động

befaint

|||||||||||||

Nguyễn Duy Tuân

Nghị Hách

AutoReply

Thành viên tiêu biểu

Nguyễn Duy Tuân

Nghị Hách

befaint

|||||||||||||

VetMini

Ăn cùng góc phố

befaint

|||||||||||||

Nguyễn Duy Tuân

Nghị Hách

thuyyeu99

Trùm Nhiều Chuyện

Go to page

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Liên Hệ