Visual Basic

Editare file di Excel 2007 da VBA o VB6

Francesco Giossi — Fri, 08 May 2009 10:44:11 GMT

Interessante articolo su come editare il formato OPENXML di Excel 2007 utilizzando il buon vecchio VBA o, per estensione, il sempre valido Visual basic 6. http://www.jkp-ads.com/articles/Excel2007FileFormat02.asp

How to zip a file using Visual Basic 6 and the Windows Shell

Francesco Giossi — Fri, 27 Mar 2009 12:40:32 GMT

When it was a matter of zipping a file, I always choosed the easy way: find a thirdy part activex or dll which could do the job for me. This time, I wanted to find my way to zip a file using Visual Basic 6 (or Visual Basic for Application - aka VBA) and the windows shell. The consderation came from the fact that, since Windows XP, the support of zipping-unizzping files is a native feature of the OS. After a long search and multiple fixes, I finally came up with a stable solution which I'm going to quickly explain and post right here. The source code is a mix of pieces of code collected here and there. the only att Attached to the post it's a zip file containing a working example. It zips the files contained in the testFolder directory. Click here to download the zip. I'm going to post just the clsZip class I used to support my zipping project. clsZip.cls Option Explicit Private objShell As Object Private mvarZipFileName As String Const FOF_NOCONFIRMATION = &H14 Private Sub Class_Initialize() Set objShell = CreateObject("Shell.Application") End Sub Private Sub Class_Terminate() Set objShell = Nothing End Sub Public Property Let ZipFileName(ByVal vData As String) mvarZipFileName = vData End Property Public Property Get ZipFileName() As String ZipFileName = mvarZipFileName End Property Private Sub CreateEmptyZip(sPath) Dim strZIPHeader As String Dim fso As Object strZIPHeader = Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, vbNullChar) Set fso = CreateObject("Scripting.FileSystemObject") With fso .CreateTextFile(sPath).Write strZIPHeader End With Set fso = Nothing End Sub Public Function AddFilesToZip(sFileNames() As String) As Boolean Dim i As Long Dim iCount As Long On Error GoTo AddFilesToZip_Error CreateEmptyZip mvarZipFileName On Error Resume Next For i = LBound(sFileNames) To UBound(sFileNames) objShell.Namespace("" & mvarZipFileName).CopyHere "" & sFileNames(i), FOF_NOCONFIRMATION iCount = objShell.Namespace("" & mvarZipFileName).items.Count Do Until iCount = i + 1 Sleep 100 iCount = objShell.Namespace("" & mvarZipFileName).items.Count Loop Next On Error GoTo 0 Exit Function AddFilesToZip_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure AddFilesToZip of Modulo di classe clsZip" End Function Public Function UnzipToFolder(sFolderName As String) As Boolean objShell.Namespace("" & sFolderName).CopyHere objShell.Namespace("" & mvarZipFileName).items End Function Technorati tags: zip, Visual basic 6, vba, windows shell

OLEDB and text files

Francesco Giossi — Sun, 07 Oct 2007 21:00:14 GMT

This is a very quick example about OLEDB and read a text (.txt) file using Visual Basic 6. The text file must be formatted as a simple CSV file with a field separator. Something like this Test.txt a;1;Test b;2;Test c;3;Test d;4;Test Supposing "Test.Txt" is stored in the root of the C: harddrive, the code will look like ---------------------------------------- Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=""text;HDR=No;FMT=Delimited'""" Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM Test.txt", cn, 0, 1, 1 While Not rs.EOF Debug.Print rs.Fields(0).Value, rs.Fields(1).Value, rs.Fields(2).Value rs.MoveNext Wend rs.Close Set rs = Nothing cn.Close Set cn = Nothing ---------------------------------------- Take a look to the connection string "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties=""text;HDR=No;FMT=Delimited'""" the Data Source=c:\; is the key. If you plan to store your text file in a different folde, let's say "c:\documents and settings\Auser\Documents\myTestFiles\", you are required to change the connection string this way: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\documents and settings\Auser\Documents\myTestFiles\;Extended Properties=""text;HDR=No;FMT=Delimited'"""