Cómo Abrir Archivos con VBA

Como programador, es probable que encuentre muchas situaciones en las que sea necesario aclarar otros archivos para deletrear, escribir o adicionar datos. Una macro puede ayudarlo a procesar estos archivos fácilmente, y el Extenso método es su boleto.

Ejemplos de escenarios de procesamiento de archivos de la vida actual

Aquí hay algunas aplicaciones donde puede usar este método:

1. Los miembros del equipo actualizan su estado de trabajo en SharePoint.
2. Actualice HP Quality Center a través de un complemento o una macro de Excel.
3. Un avezado que marca la registro de ausencias en una hoja de Excel y usa un complemento (macro) que completa automáticamente la socorro de todos los estudiantes de la clase.
4. Mantenga una almohadilla de datos de habilidades para los estudiantes y extraiga estos datos de varios libros de trabajo cuando sea necesario, como una lazo o un torneo.
5. Las empresas crean y envían cotizaciones simplemente llenando un formulario. Por otra parte de las macros, igualmente se pueden utilizar plantillas para esto.

El método de archivo despejado de VBA

VBA proporciona un método obvio para aclarar y trabajar con archivos. Esto permite que un favorecido lea o escriba, o haga ambas cosas, a posteriori de aclarar el archivo.

Sintaxis:

Open <path name> For <mode> [Access access] [lock]

Explicación de los parámetros anteriores:

1. : Un campo obligatorio. Es el nombre del archivo adjunto con los detalles de su extensión, mecanismo y carpeta.
2. : Este es un campo obligatorio. Puede ser una de las cinco opciones siguientes:
   1. adicionar
   2. binario
   3. Salida:
   4. Aporte
   5. Fortuito: este es el modo predeterminado.
3. Llegada: este es un parámetro opcional. Enumera las ediciones permitidas en el archivo despejado. Puede ser uno de los siguientes:
   1. Interpretar
   2. Escribe
   3. Lee y escribe
4. Lock : Este igualmente es un parámetro opcional. Puede tener cualquiera de los siguientes títulos que están restringidos en el archivo despejado:
   1. Compartido
   2. Interpretar aislamiento
   3. Cerco de escritura
   4. Cerco de recital y escritura

Nota: Las etiquetas entre corchetes son opcionales. Aquí las etiquetas de llegada y aislamiento son opcionales.

Ejemplos de tolerancia de archivos con VBA

Ejemplo 1: solo abre un archivo

Este es un software simple que simplemente abre un archivo de Excel.

Sub open_file_demo()

' declare variable
Dim pathname

' assign a value
pathname = "C:UsersLAKSHMI RAMAKRISHNANDownloadsProject 1.xlsx"

' now open the file using the open statement
Workbooks.Open pathname

End Sub

Ejemplo 2: refugio un manual de Excel en modo de «solo recital» e intente escribir en él

Sub open_file_demo()

' declare variables
Dim pathname
Dim wb As Workbook

' assign a value
pathname = "C:UsersLAKSHMI RAMAKRISHNANDownloadsProject 1.xlsx"

' now open the file using the open statement and assign it to the wb object so that it can be used in the code further.
Set wb = Workbooks.Open(Filename:=pathname, ReadOnly:=True)

' Try writing after opening the file in "read only mode". This should throw an error.
wb.Sheets(0).Cells(1, 1).Value = "Try writing"

End Sub

Ejemplo 3: Cala un archivo de texto y lea su contenido con la función Rasgar y el número de archivo

Sub TextFile_PullData()

' declare variables

Dim int_txtfile As Integer
Dim str_file_Path As String
Dim str_File_Content As String

' Assign the file path to the variable
  str_file_Path = "C:UsersLAKSHMI RAMAKRISHNANOneDriveDocumentssample.txt"

' Find the next available file number to be used by the fileopen function
  int_txtfile = FreeFile

' Open the said text file using the function
  Open str_file_Path For Input As int_txtfile

' The content of the file is stored in a variable
  str_File_Content = Input(LOF(int_txtfile), int_txtfile)

' Print the file content using the variable in which it is stored
  Debug.Print str_File_Content

' Close the opened text file
  Close int_txtfile

End Sub

Ejemplo 4: deletrear y escribir contenido en un archivo de texto

En este ejemplo, primero abrimos un archivo de texto en modo de recital y copiamos su contenido en una variable. Luego cambiamos su contenido y abrimos el mismo archivo de texto en modo escritura. Finalmente, escribimos el contenido modificado en el archivo.

Sub txt_file_FindReplace()

Dim txt_file As Integer
Dim file_path As String
Dim file_content As String

' Assign the file path to the variable
  file_path = "C:UsersLAKSHMI RAMAKRISHNANOneDriveDocumentssample.txt"

' Determine the next available file number to be used by the FileOpen function
  txt_file = FreeFile

'  The text file is opened in read-only mode
  Open file_path For Input As txt_file

' Store the content of the file in a variable
  file_content = Input(LOF(txt_file), txt_file)

' Close the opened Text File
  Close txt_file
  
' Find and replace some text
  file_content = Replace(file_content, "It", "This file")

' Determine the next available file number to be used by the FileOpen function
  txt_file = FreeFile

' Open the text file in a Write State
  Open file_path For Output As txt_file
  
' Write the modified content to the file
  Print #txt_file, file_content

' Close the opened Text File
  Close txt_file

End Sub

Ejemplo 5: adicionar datos a un archivo de texto

En este ejemplo, agregaremos texto adicional al final de un archivo de texto existente que ya contiene algunos datos.

Sub txt_file_append()

' declare variables

Dim int_txtfile As Integer
Dim str_file_Path As String
Dim str_File_Content As String

' Assign the file path to the variable
  str_file_Path = "C:UsersLAKSHMI RAMAKRISHNANOneDriveDocumentssample.txt"

' Find the next available file number to be used by the fileopen function
  int_txtfile = FreeFile

' Open the said text file using the function
  Open str_file_Path For Append As int_txtfile

' Write content to the end of the file
  Print #int_txtfile, "This is additional content"
  Print #int_txtfile, "Warm Regards"
  Print #int_txtfile, "Laksmi Ramakrishnan"

' Close the opened text file
  Close int_txtfile

End Sub

Conclusión

Si acertadamente hay muchas formas de aclarar archivos con diferentes extensiones usando VBA, en este artículo hemos tratado de centrarnos en los métodos más básicos o simples para hacerlo.

El modo «despejado» en este aclarar documento El método juega un papel crucial en esto. Si intentamos adicionar o escribir en un archivo despejado en modo recital, se arroja un error que detiene la ejecución del software. Por lo tanto, puede pensar que el modo de recital proporciona «protección de datos» al archivo flamante que se abre.