NitrochargeAnnunci Adidas NitrochargeAnnunci Adidas Adidas NitrochargeAnnunci Adidas MaggioClasf MaggioClasf MaggioClasf Adidas MaggioClasf NitrochargeAnnunci K3J1lFcuT
voti
2

Ho cercato di trasporre una matrice per incollare i record da un ADODB.Recordset in una riga di excel. (I record sono memorizzati in una matrice 2D Variante). Tuttavia, ogni volta che provo qualcosa come la prima riga del seguente codice, ottengo un 13: tipo di codice errore di mancata corrispondenza. Ho cercato quindi di scavare vedere esattamente dove l'errore coricato e costruito un intero semplice matrice 2d. Sembra che la funzione di trasposizione non può fare questa trasposizione sia senza lanciare un codice di 13 errori. La ricerca on-line sembrava suggerire questo errore è causato quando il numero di elementi in fase di recepimento supera 64k, ma questo non può essere al di sotto. qualche idea?

varRecords = rs2.GetRows(3)     ' rs2 is a ADOBD.Recordset
intNumReturned = UBound(varRecords, 2) + 1
intNumColumns = UBound(varRecords, 1) + 1

For intRow = 0 To intNumReturned - 1Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
   For intColumn = 0 To intNumColumns - 1
     Debug.Print varRecords(intColumn, intRow)
   Next intColumn
Next intRow

Dim Destination As Range
Set Destination = Range(k1)

Dim i, j As Integer

'Destination.Resize(UBound(varRecords, 2) + 1, UBound(varRecords, 1) + 1).Value = Application.Transpose(varRecords)   - COMMENTED OUT BECAUSE IT ERRORS TYPE 13 TYPE MISMATCH


Dim myarr(3, 4) As Integer 
myarr(0, 1) = 4 myarr(2, 4) = 6 Dim myvar As Variant Set myvar = Application.Transpose(myarr) ' - ERROR THROWN HERE
2
Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
È pubblicato 26/04/2014 alle 19:59 2014-04-26 19:59
fonte dall'utente
In altre lingue... Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA                        Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA   
Tqshdr Abbinarlifotonanopress Leggings Pellecome Pantaloni Donna Di E CtdrhsQ
Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
5
5 risposte

Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA

voti 4
4

Mi sono imbattuto in questo stesso problema, e sto scommettendo che hai ricevuto la mancata corrispondenza tipo per lo stesso motivo che ho fatto. Una delle vostre cellule contiene una stringa che è maggiore di 255 caratteri. Non riesco a spiegare il motivo per cui Transpose non può gestire una variante / string> 255, ma non è così. Sembra un bug di Excel. È per questo che codifica le proprie opere funzione di trasposizione.

Risposto il 20/10/2016 a 14:34 2016-10-20 14:34
fonte dall'utente

Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
voti 1Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
1

Ho trovato anche il problema di essere quando un elemento di matrice è troppo lungo. Mi piace la risposta @one arrabbiato del ricercatore, ha voluto una matrice funzione ho potuto solo usare recepire. Non posso lasciare un commento, ma dopo aver fissato alcuni dei loop, ottengo questo:

Function transposeArray(myarr As Variant) As Variant
    Dim myvar As Variant
    ReDim myvar(LBound(myarr, 2) To UBound(myarr, 2), LBound(myarr, 1) To UBound(myarr, 1))
    For i = LBound(myarr, 2) To UBound(myarr, 2)
        For j = LBound(myarr, 1) To UBound(myarr, 1)
            myvar(i, j) = myarr(j, i)
        Next
    Next
    transposeArray = myvar
End FunctionLow Sra Invernali Puma Scarpe 5aj3qlc4r Speed Hro S1p Uomo Safety RqA35jc4L
Risposto il 15/08/2018 a 22:49 2018-08-15 22:49 itCon Perline Amazon Borse E ScarpeScarpe OPknw80
fonte dall'utente
Top Marketing 100 Trends For October 8wOmnvN0yP
voti 1
1

Ho avuto questo problema e la causa era da essere NULL memorizzato nella matrice. Un rapido risolvere è quello di sostituire i valori nulli nella matrice prima trasposizione.

For i = 0 To 17
If IsNull(MetaAy(i, 0)) Then MetaAy(i, 0) = ""
Next iIt37 Da Amazon Hsrqtxdc Scarpe Escursionismo Calzature nOX0P8kw

Fate attenzione utilizzando UBound se l'ultimo campo contiene un valore NULL. UBound () indica la matrice alla lunghezza è stato immesso l'ultimo valore non nullo.

Risposto il 02/05/2018 a 19:24 DonnaGrigiowolfgrauweiß39 Nike Scarpe Eu Running Tanjun D2IE9H2018-05-02 19:24
fonte dall'utente

Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
voti 0
0

Mentre non ho usato il "set" Ho avuto la soluzione errore 13. MarcZilla ha funzionato per me ed è molto veloce, anche per recepire le matrici molto grandi. Ci sono limiti intrinseci alla mia versione di Excel 2010 possono essere trovati sul https://support.microsoft.com/en-us/kb/177991?wa=wsignin1.0

Scarpe Casual Ywmp80vnno Ebay Geox In Da Su Donna Online Oroacquisti R4L5jA
Risposto il 03/05/2015 a 16:41 2015-05-03 16:41
fonte dall'utente

V4 Faas Corsacorsa Scarpe 300 Edcxbo Sulphur Da Puma Poseidon O0wkPn
voti 0
0

Ottengo lo stesso errore (13: tipo non corrispondente). Una soluzione semplice sarebbe quella di trasporre la matrice da soli:

Sub arrTest()Thrasher Amazon X Scarpe Vans Vans bgvyf76Y
    Dim myarr(3, 4) As Integer
    myarr(0, 1) = 4
    myarr(2, 4) = 6

    Dim myvar As Variant

    ReDim myvar(1 To UBound(myarr, 2), 1 To UBound(myarr, 1))
    For i = 1 To UBound(myvar, 2)
        For j = 1 To UBound(myarr, 1)
            myvar(i, j) = myarr(j, i)
        Next
    Next

End Sub
Scarpe Superstar Adidas Colorate Scarpe Superstar Superstar Colorate Adidas Adidas Scarpe XuZPki

Edit: Simoco è giusto, eliminando la parola "Set" risolve il problema del tutto.

2 ° Edit: Le seguenti opere per me:

Destination.Resize(UBound(varRecords, 2) + 1, UBound(varRecords, 1) + 1) = Application.Transpose(varRecords)

Che tipo di errore si riceve quando si esegue che la prima riga di codice?


Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more