Salve a tutti,
sto realizzando un piccolo programmino che potrebbe rendermi più facile la vita al lavoro.. Ho bisogno di importare dei file txt (uno per ogni foglio) in una cartella di Excel predefinita, dove all'interno ho già elaborato una tabella. Il form prevede un button1 e una finestra di dialogo Apri (con il Multiselect su True). Ho impostato un ciclo For...Each, ma invece di aprire tutti i file della cartella (es. 3 files), apre il primo per tre volte. Per fare chiarezza, posto il codice che ho scritto. Dove sbaglio??
Grazie Infinite!!
Imports Microsoft.Office.Interop
Imports System.IO
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim File As String
Dim objXls As Microsoft.Office.Interop.Excel.Application
Dim objWbk As Microsoft.Office.Interop.Excel.Workbook
Dim objsht As Microsoft.Office.Interop.Excel.Worksheet
objXls = New Microsoft.Office.Interop.Excel.Application
'Apro excel
objXls.Visible = True
'Apro finestra di dialogo Apri File
If OpenFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
End If
For Each File In OpenFileDialog1.FileNames
File = OpenFileDialog1.FileName
With (objXls)
.DisplayAlerts = False
.Workbooks.OpenText(Filename:=OpenFileDialog1.FileName, _
Origin:=XlPlatform.xlWindows, _
StartRow:=1, _
DataType:=Excel.XlTextParsingType.xlDelimited, _
TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False)
End With
Next File
End Sub