我正在第一次使用VBA工作,並且出現了一個我似乎無法更正的錯誤。excel宏「object required」錯誤
我想將一些字段從一張傳遞給另一張。 它給我「對象所需」,但我似乎無法弄清楚了這麼賣這個...
我的代碼是這樣的:
Sub principal_main()
Dim Max_rows, j, row_number As Integer
Dim i, count As Integer
Dim name_Row As String
Dim morada, localidade, email, cod_postal, data As String
Dim telefone, nif As Integer
Dim escreve As Range
count = 0
row_number = 12
name_Row = ""
Max_rows = 23200
For i = 13 To Max_rows
If name_Row = "" Then
name_Row = myWorksheet.Range("B" & i).Value
morada = ""
localidade = ""
email = ""
cod_postal = ""
data = ""
telefone = 0
nif = 0
count = 0
Else
count = count + 1
If count = 26 Then
name_Row = ""
End If
Select Case count
Case 2
morada = myWorksheet.Range("B" & i).Value
telefone = myWorksheet.Range("I" & i).Value
Case 4
localidade = myWorksheet.Range("B" & i).Value
email = myWorksheet.Range("I" & i).Value
Case 5
cod_postal = myWorksheet.Range("B" & i).Value
nif = myWorksheet.Range("I" & i).Value
Case 7
data = myWorksheet.Range("C" & i).Value
nome_row = Replace(nome_row, " - ", "")
For j = 0 To 10
nome_row = Replace(nome_row, j, "")
Next
Set Sheets("final").Range("B" & count_copiados) = name_Row
Set Sheets("final").Range("C" & count_copiados) = morada
Set Sheets("final").Range("D" & count_copiados) = cod_postal
Set Sheets("final").Range("E" & count_copiados) = localidade
Set Sheets("final").Range("F" & count_copiados) = telefone
Set Sheets("final").Range("G" & count_copiados) = email
Set Sheets("final").Range("H" & count_copiados) = nif
Set Sheets("final").Range("I" & count_copiados) = data_ficha
'Sheets("final").Row(count_copiados).collumn("B") = name_Row
'Sheets("final").Row(count_copiados).collumn("C") = morada
'Sheets("final").Row(count_copiados).collumn("D") = cod_postal
'Sheets("final").Row(count_copiados).collumn("E") = localidade
'Sheets("final").Row(count_copiados).collumn("F") = telefone
'Sheets("final").Row(count_copiados).collumn("G") = email
'Sheets("final").Row(count_copiados).collumn("H") = nif
'Sheets("final").Row(count_copiados).collumn("I") = data_ficha
End Select
End If
Next
End Sub
新的代碼,有了一些變化:
Option Explicit
Sub principal_main()
Dim Max_rows, row_number As Long
Dim i, j, count, count_copiados As Long
Dim name_Row As String
Dim morada, localidade, email, cod_postal, data_ficha As String
Dim telefone As Variant
Dim nif As Integer
Dim escreve As Range
Dim myWorksheet As Worksheet
myWorksheet = Sheets(1)
count = 0
row_number = 12
name_Row = ""
Max_rows = 23200
count_copiados = 13
For i = 13 To Max_rows
If name_Row = "" Then
name_Row = myWorksheet.Range("B" & i).Value
morada = ""
localidade = ""
email = ""
cod_postal = ""
data_ficha = ""
telefone = 0
nif = 0
count = 0
Else
count = count + 1
If count = 26 Then
name_Row = ""
End If
Select Case count
Case 2
morada = myWorksheet.Range("B" & i).Value
telefone = myWorksheet.Range("I" & i).Value
Case 4
localidade = myWorksheet.Range("B" & i).Value
email = myWorksheet.Range("I" & i).Value
Case 5
cod_postal = myWorksheet.Range("B" & i).Value
nif = myWorksheet.Range("I" & i).Value
Case 7
data_ficha = myWorksheet.Range("C" & i).Value
name_Row = Replace(name_Row, " - ", "")
For j = 0 To 10
name_Row = Replace(name_Row, j, "")
Next
Set Sheets("final").Range("B" & count_copiados) = name_Row
Set Sheets("final").Range("C" & count_copiados) = morada
Set Sheets("final").Range("D" & count_copiados) = cod_postal
Set Sheets("final").Range("E" & count_copiados) = localidade
Set Sheets("final").Range("F" & count_copiados) = telefone
Set Sheets("final").Range("G" & count_copiados) = email
Set Sheets("final").Range("H" & count_copiados) = nif
Set Sheets("final").Range("I" & count_copiados) = data_ficha
'Sheets("final").Row(count_copiados).collumn("B") = name_Row
'Sheets("final").Row(count_copiados).collumn("C") = morada
'Sheets("final").Row(count_copiados).collumn("D") = cod_postal
'Sheets("final").Row(count_copiados).collumn("E") = localidade
'Sheets("final").Row(count_copiados).collumn("F") = telefone
'Sheets("final").Row(count_copiados).collumn("G") = email
'Sheets("final").Row(count_copiados).collumn("H") = nif
'Sheets("final").Row(count_copiados).collumn("I") = data_ficha
count_copiados = count_copiados + 1
End Select
End If
Next
End Sub
你在哪裏標註並分配'myWorksheet'變量?將'Option Explicit'放在你模塊的頂部,然後嘗試清除你的錯誤。考慮'Dim myWorksheet as Worksheet','Set = myWorksheet = Sheets(1)' – 2013-11-25 11:33:34
謝謝,現在它運行了,它給出了一個新的錯誤(溢出),但是這一個必須是因爲錯誤的編碼。感謝 –
這可能是因爲你正在使用Integer來溢出它。將'Integer'改爲'Long'。此外,請注意,「Dim telefone,nif Integer'尺寸'telefone'爲'Variant','nif'爲'Integer',並非都是'Integers' – 2013-11-25 11:49:20