E il mio problema e questo : Tempo in dietro qualcuno di voi mi diede gentilmente questo Codice :
- Codice: Seleziona tutto
Option Explicit
Dim Riga As Long
Dim Nome As String
Dim A As String, B As String, C As String, D As String, E As String
Dim F As String, G As String, H As String, i As String, j As String
Dim K As String, L As String, M As String, N As String, O As String
Sub Crea_DataBase()
'On Error Resume Next
Dim NN As Long
Riga = 2 'Decidiamo Da Quale Riga Iniziare a _
Creare Il Nostro Lavoro, In Questo Caso Dalla _
Riga 2 Foglio 1.
Nome = "Descriz" & NN 'Impostiamo La Variabile _
"Nome" Come "Descriz" Seguito Dal Numero (N) _
Assegnato Dal Ciclo Per La Riga Sottostante _
(Vero / Falso)
ActiveWorkbook.Names.Add Name:=Nome, _
RefersTo:=Range(Cells(Riga, 1), _
Cells(Riga + 0, 15)) ' **
With Foglio1
.Range("A3").Value = A
.Range("B3").Value = B
.Range("C3").Value = C
.Range("D3").Value = D
.Range("E3").Value = E
.Range("F3").Value = F
.Range("G3").Value = G
.Range("H3").Value = H
.Range("I3").Value = i
.Range("J3").Value = j
.Range("K3").Value = K
.Range("L3").Value = L
.Range("M3").Value = M
.Range("N3").Value = N
.Range("O3").Value = O
.Range("A3").Value = "" & .Range("M2").Value & ""
End With
Call MultiArea2
End Sub
Sub MultiArea2()
'Variabile Per L'inserimento Del (Numero 1 o Nullo) _
Nella, Riga Sottostante Alle Voci Che Compongono i _
Report, Per La Verifica Del (Vero e Del Falso) Che _
Influenzano La Visualità o Meno Delle _
(TexBox e Label) Dinamiche Che Compongono _
L'ossatura Del DataBase Che Vengono Create Nel _
Dell'Userform 6.
Dim II As Long
Dim RangeAll As Range, myMatch, lContr As Control
With Sheets("Foglio1")
Set RangeAll = .Range(.Range("A3"), .Cells(3, Columns.Count).End(xlToLeft))
End With
RangeAll.Offset(1).ClearContents
For Each lContr In Range("A3").Value
II = II + 1
If TypeName(lContr) = "" Then
myMatch = Application.Match(lContr.Object, RangeAll, 0)
If Not IsError(myMatch) Then
RangeAll.Cells(2, myMatch).Value = 1
End If
End If
Next lContr
End Sub
Sub ImportTextFile()
Dim myFile As String
Dim Stringa As String
Dim rng
Dim RR, uF As Long
Dim A As String, B As String, C As String, D As String, E As String
Dim F As String, G As String, H As String, i As String, j As String
Dim K As String, L As String, M As String, N As String
ChDir ThisWorkbook.Path
myFile = ThisWorkbook.Path & "\Utility\Database.txt"
On Error Resume Next
'Preparare Il File Di testo Per La Lettura
Open myFile For Input As #1
'Verifica Se è Stato Trovato Il File Di Testo
If Err.Number <> 0 Then
MsgBox "Nessun file selezionato.", vbCritical, "Attenzione"
Exit Sub
End If
On Error GoTo 0
Application.ScreenUpdating = False
'Record è Stato Aggiunto Al Foglio Di Lavoro
'RR = Cells(Rows.Count, "A").End(xlUp).Row + 1
'If RR = 2 And Cells(1, 1) = "" Then RR = 1
uF = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A1: K" & uF)
Do Until (EOF(1))
'Leggere dal File Di Testo
Input #1, Stringa, A, B, C, D, E, F, G, H, i, j, K, L, M, N
Cells(RR, 1) = Stringa
Cells(RR, 2) = A
Cells(RR, 3) = B
Cells(RR, 4) = C
Cells(RR, 5) = D
Cells(RR, 6) = E
Cells(RR, 7) = F
Cells(RR, 8) = G
Cells(RR, 9) = H
Cells(RR, 10) = i
Cells(RR, 11) = j
Cells(RR, 12) = K
Cells(RR, 13) = L
Cells(RR, 14) = M
Cells(RR, 15) = N
RR = RR + 1
Loop
Close #1
Application.ScreenUpdating = True
End Sub
Sub Salva_Su_File_TXT()
Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer
myFile = ThisWorkbook.Path & "\Utility\Database3.Txt"
Set rng = Selection
Open myFile For Output As #1
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
cellValue = rng.Cells(i, j).Value
If j = rng.Columns.Count Then
Write #1, cellValue
Else
Write #1, cellValue,
End If
Next j
Next i
Close #1
End Sub
Tutto Ciò era però abbinato a un Userform con Delle (Textbox e label) Dinamiche e funzionava Benissimo.
Ora però vorrei soltanto interagire con il Foglio di Excel e il File TXT ; E qui nascono i guai.
Perché se seleziono Manualmente l'intera riga di dati ; E poi premo il Tasto Export (Shapes) il Dato Viene salvato sul File (TXT che si trova all'interno della cartella di Lavoro.
Però al contrario se non seleziono nulla il File (TXT) risulta Vuoto.
Per Tanto quello che vorrei realizzare io sarebbe questo :
1 ) Scivere dei Dati all'interno del Foglio 1 "Nomi - Cognomi - Indirizzi" ecc....!
Poi premere il tasto (Export) e memorizzare il tutto all'interno del file TXT
2 ) Premere il Tasto (Shapes) Import e importare tutti i dati inseriti del File (TXT) Nuovamente all'interno del Foglio di Excel.
3 ) Inserire nella Cella (M1) un numero (ID ho un Cognome) Premere il Tasto Cerca (Shapes) trovare tale dato all'interno del File (Txt) e riportarlo nella prima Riga vuota che trova nel Foglio 2
Tutto qui !!!!!
Forse chiedo Troppo ?
Grazie sin da ora per tutto l'aiuto che riuscirete a darmi in merito Saluti da A.Maurizio
Inserisco il Links per Scaricare il progetto di prova : https://app.box.com/s/sjhvccj2bl7wfnln9o3htv3dqe0g586t
