Risultati da 1 a 6 di 6
  1. #1
    Utente poco attivo L'avatar di Pombia
    Iscritto dal
    2018
    Messaggi
    4
    Professione
    Geometra
    Regione
    Piemonte
    Software
    Autocad

    Predefinito Prendere valore da file Excel tramite vba di AutoCAD

    Ciao a tutti, leggendo un po di forum su questa tematica non sono riuscita a trovare una soluzione a questa problema.

    Avendo questo codice:
    Dim Reg As AcadText
    Dim textreg As String
    Dim IP(0 To 2) As Double
    Dim X As Double, Y As Double, Z As Double, rot As Double

    textreg = regionetext.Text
    X = 2.875
    Y = 10.4
    Z = 0
    IP(0) = X: IP(1) = Y: IP(2) = Z

    Set Reg = ThisDrawing.ModelSpace.AddText(textreg, IP, 0.2)
    Reg.Layer = 0
    Reg.color = acByLayer
    Reg.Alignment = acAlignmentCenter
    Reg.TextAlignmentPoint = IP
    Vorrei che il textreg = venisse prelevato da una cella di un file excel esterno al dgw e non dalla casella di testo che ho inserito nella userform.

    Qualcuno mi puo aiutare?

  2. #2
    Utente Standard L'avatar di rpor66
    Iscritto dal
    2007
    Messaggi
    678
    Professione
    Programmatore
    Regione
    Sicilia
    Software
    AutoCad, CadWorx, Excel, Lisp, VBA

    Predefinito

    Dim ExcelSheet As Object
    Dim Filename As String

    Filename = "c:\TuoFile.xls"
    Set ExcelSheet = GetObject(Filename)

    ExcelSheet.Application.Visible = True
    Cell = ExcelSheet.Application.cells(1, 1)

    Cell contiene il valore della cella A1

    Buon divertimento

  3. Il seguente utente ha ringraziato rpor66 per questo post

    Pombia (09-02-2018)

  4. #3
    Utente poco attivo L'avatar di Pombia
    Iscritto dal
    2018
    Messaggi
    4
    Professione
    Geometra
    Regione
    Piemonte
    Software
    Autocad

    Predefinito

    Ancora problemi, avendo aggiunto il codice non mi fuziona lo stesso.

    altre soluzioni?

  5. #4
    Utente Standard L'avatar di rpor66
    Iscritto dal
    2007
    Messaggi
    678
    Professione
    Programmatore
    Regione
    Sicilia
    Software
    AutoCad, CadWorx, Excel, Lisp, VBA

    Predefinito

    Il dvb contiene una funzione che legge una cella di excel descritta da NomeFile, riga e colonna.
    Verifica in vba, tools/references deve fare riferimento alla versione di excel in uso.
    Cattura.JPG

    Se hai problemi, chiedi.
    Bye
    File Allegati File Allegati

  6. #5
    Utente poco attivo L'avatar di Pombia
    Iscritto dal
    2018
    Messaggi
    4
    Professione
    Geometra
    Regione
    Piemonte
    Software
    Autocad

    Predefinito

    Ho risolto utilizzando un'altro codice e attivando la references. Grazie dell'aiuto, ho problemi perche sono alle prime armi :)

  7. #6
    Utente Standard L'avatar di rpor66
    Iscritto dal
    2007
    Messaggi
    678
    Professione
    Programmatore
    Regione
    Sicilia
    Software
    AutoCad, CadWorx, Excel, Lisp, VBA

    Predefinito

    A seguito richiesta, posto un esempio di richiamo della funzione vlookup in excel

    Sub TestVlookup()

    Dim Prova As String
    Dim obXLS As Object
    Dim wkFile As Workbook
    Dim shFile As Worksheet

    Set obXLS = GetObject(, "Excel.Application")

    obXLS.Application.Visible = True

    Set wkFile = obXLS.ActiveWorkbook
    Set shFile = wkFile.ActiveSheet
    'Set shFile = wkFile.Worksheets(ComboBox1.Text)

    Prova = wkFile.Application.WorksheetFunction.vlookup("c", shFile.Range("F1:G8"), 2, False)
    'Prova = shFile.Application.WorksheetFunction.vlookup(ListB ox2.List(x), shFile.Range(L9, L28), 3, False)

    MsgBox Prova

    End Sub

    p.s.: per Pombia
    Le parti in blu contengono le tue impostazioni, fai lo swap.
    Bye


  • Discussioni Simili

    1. Assieme SolidWorks tramite file excel
      Di VitoCeglie nel forum Solidworks
      Risposte: 1
      Ultimo Messaggio: 01-09-2016, 13: 20
    2. VLisp - prendere valori da file Excel se contengono formule
      Di Dr.Lube nel forum Lisp per Autocad
      Risposte: 4
      Ultimo Messaggio: 13-01-2015, 17: 46
    3. Risposte: 3
      Ultimo Messaggio: 13-03-2014, 15: 31
    4. Aprire un file Excel in AutoCAD
      Di joe nel forum AutoCAD
      Risposte: 9
      Ultimo Messaggio: 23-01-2014, 20: 35
    5. valore di un parametro tramite una combobox
      Di cooler nel forum Creo Parametric - Messa in tavola
      Risposte: 10
      Ultimo Messaggio: 23-04-2009, 15: 15

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  





    CAD3D.it - la community dei progettisti