Unable write to read - only property

nqtran1081

New Member
Joined
Jul 3, 2019
Messages
1
Tôi có một mã vbs. Khi tôi chạy nó để cập nhật dữ liệu từ tệp excel sang ứng dụng SAPGUI, tôi nhận được thông báo lỗi "Không thể ghi vào chỉ đọc thuộc tính '" . AI có thể cho tôi biết nguyên nhân và cách khắc phục. cảm ơn bạn
mã vbs:
Dim objExcel, objWorkbook, objSheet, i
Set objExcel = CreateObject ("Excel.Application")
Đặt objWorkbook = objExcel.Workbooks.Open ("C: \ test.xls")
Đặt objSheet
Trang tính1 ) Cho i = 2 vào objSheet.UsedRange.Rows.Count
USERID = Trim (CStr (objSheet.Cells (i, 1) .Value)) 'Cột1
PWD = Trim (CStr (objSheet.Cells (i, 2). Giá trị)) 'Cột2

............................................. .... hộp thư
tiếp theo
cài đặt lại mật khẩu
 

Excel Facts

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.
Xin chào nqtran1081,
Đây là một mã làm những gì tôi nghĩ bạn cần
Code:
Sub test()
    ' mã vbs thể ghi vào chỉ đọc thuộc tính
    Dim objExcel, objWorkbook, objSheet, i As Variant
    Dim USERID, PWD As String
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\temp\test.xls")
    Set objSheet = objWorkbook.Worksheets("Sheet1")
    For i = 2 To objSheet.UsedRange.Rows.Count
        USERID = Trim(CStr(objSheet.Cells(i, 1).Value))
        PWD = Trim(CStr(objSheet.Cells(i, 2).Value))
        MsgBox (USERID & " - " & PWD)
    Next i
End Sub

Trân trọng
Sergio
 
Upvote 0

Forum statistics

Threads
1,213,494
Messages
6,113,981
Members
448,538
Latest member
alex78

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top