读取excel文件生成java文件.docVIP

Imports System.IO Imports System.Windows.Forms Imports Microsoft.Office.Interop Public Class Form1 Public Structure Term Dim kouben As String í—·? Dim nm As String ê?D??? Dim pri As String ?éò?D? Dim kei As String Dí Dim isStatic As String static Dim ti As String 3??ú?? Dim setumei As String ?h?÷ End Structure Private lst As ArrayList Private lstMethod As ArrayList Private lstClass As New ArrayList Private strPath As String = String.Empty Private strDir As String = String.Empty Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click lst = New ArrayList FolderBrowserDialog1.Description = Select a Folder FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer FolderBrowserDialog1.ShowNewFolderButton = False If FolderBrowserDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then Me.Label1.Text = FolderBrowserDialog1.SelectedPath GetAllFile(FolderBrowserDialog1.SelectedPath, lst, *.xls) End If End Sub Private Sub GetAllFile(ByVal path As String, ByRef lst As ArrayList, ByVal str As String) Dim strDir As String() = System.IO.Directory.GetDirectories(path) Dim strFile As String() = System.IO.Directory.GetFiles(path, str) Dim i As Integer If strFile.Length 0 Then For i = 0 To strFile.Length - 1 lst.Add(strFile(i)) Next End If If strDir.Length 0 Then For i = 0 To strDir.Length - 1 GetAllFile(strDir(i), lst, str) Next End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click FolderBrowserDialog1.Description = Select a Folder FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer FolderBrowserDialog1.ShowNewFolderButton = False If FolderBrowserDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then Me.Label2.Text = FolderBrowserDialog1.SelectedPath End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim xlAppExcelFile