Respuesta de ifrancoz
1
Si lo vas a crear como salida:
Arcw = Ruta & "Cuentas.Xls"
Set Hojaexcel = CreateObject("Excel.Sheet")
Hojaexcel.ActiveSheet.Cells(1, 1).Value = "Cta"
Hojaexcel.ActiveSheet.Cells(1, 1).Value = "Nombre"
* Aquí llenas los datos
Hojaexcel. SaveAs Arcw
Hojaexcel. Application. Quit
Set Hojaexcel = Nothing
Si lo que quieres es abrir el archivo para leerlo me lo haces saber y te envío un ejemplo.
Arcw = Ruta & "Cuentas.Xls"
Set Hojaexcel = CreateObject("Excel.Sheet")
Hojaexcel.ActiveSheet.Cells(1, 1).Value = "Cta"
Hojaexcel.ActiveSheet.Cells(1, 1).Value = "Nombre"
* Aquí llenas los datos
Hojaexcel. SaveAs Arcw
Hojaexcel. Application. Quit
Set Hojaexcel = Nothing
Si lo que quieres es abrir el archivo para leerlo me lo haces saber y te envío un ejemplo.
Si.. el archivo es para lee y modificar...
El ejemplo anterior esta super bueno...
Muchas gracias.-
El ejemplo anterior esta super bueno...
Muchas gracias.-
En este ejemplo estoy usando el Drivelistbox y Dirlistbox para que el usuario busque el archivo
Dim Libxl As Object
Dim Archw As String
dim Hojw as String (nombre hoja de excel)
Archw = File1
Set Libxl = GetObject(Dir1.Path & "\" & Archw)
'Libxl.Application.Visible = True
Libxl.Application.Windows(Archw).Activate
Libxl.Application.Sheets(Hojw).Activate
* A continuación buscas las columnas que necesita o si son fijas mejor *
J = 0
K = 0
Valw = 0
For I = 1 To 9
For J = 1 To 9
If Libxl.Application.Cells(I, J) = "REGISTRO" Then
Ftiw = I
Crew = J
Else
If Libxl.Application.Cells(I, J) = "VALOR" Then
Cvaw = J
End If
End If
Next J
Next I
Fprw = Ftiw + 1
J = 0
K = 0
L = 0
For I = Fprw To 1000
If Libxl.Application.Cells(I, Crew) = "" Then
Fulw = I - 1
I = 1000
Else
Wcod = Libxl.Application.Cells(I, Crew)
Vals = Libxl.Application.Cells(I, Cvaw)
* Aqui haces el manejo de tus datos *
End If
Next I
* Si modificas la hoja usas "save"
Libxl. Application. Save
Libxl. Application. Quit
Set Libxl = Nothing
Dim Libxl As Object
Dim Archw As String
dim Hojw as String (nombre hoja de excel)
Archw = File1
Set Libxl = GetObject(Dir1.Path & "\" & Archw)
'Libxl.Application.Visible = True
Libxl.Application.Windows(Archw).Activate
Libxl.Application.Sheets(Hojw).Activate
* A continuación buscas las columnas que necesita o si son fijas mejor *
J = 0
K = 0
Valw = 0
For I = 1 To 9
For J = 1 To 9
If Libxl.Application.Cells(I, J) = "REGISTRO" Then
Ftiw = I
Crew = J
Else
If Libxl.Application.Cells(I, J) = "VALOR" Then
Cvaw = J
End If
End If
Next J
Next I
Fprw = Ftiw + 1
J = 0
K = 0
L = 0
For I = Fprw To 1000
If Libxl.Application.Cells(I, Crew) = "" Then
Fulw = I - 1
I = 1000
Else
Wcod = Libxl.Application.Cells(I, Crew)
Vals = Libxl.Application.Cells(I, Cvaw)
* Aqui haces el manejo de tus datos *
End If
Next I
* Si modificas la hoja usas "save"
Libxl. Application. Save
Libxl. Application. Quit
Set Libxl = Nothing
