没有合适的资源?快使用搜索试试~ 我知道了~
读取excel文件,生成java文件[参考].pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 200 浏览量
2021-10-12
06:11:57
上传
评论
收藏 23KB PDF 举报
温馨提示
试读
14页
读取excel文件,生成java文件[参考].pdf
资源推荐
资源详情
资源评论
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 ' 属性名
Dim pri As String ' 可視性
Dim kei As String ' 型
Dim isStatic As String 'static
Dim ti As String ' 初期値
Dim setumei As String ' 説明
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 As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
lstMethod = New ArrayList
For i As Integer = 0 To lst.Count - 1
' 生成新的 instance
xlAppExcelFile = New Excel.Application
xlBook = xlAppExcelFile.Workbooks.Open(lst(i))
' 不表示 Excel
xlAppExcelFile.Visible = False
' 禁止显示对话框和警告消息
xlAppExcelFile.DisplayAlerts = False
' 取消任务栏中的窗口选项
xlAppExcelFile.ShowWindowsInTaskbar = False
Dim iniSheets As Integer = xlBook.Sheets.Count
For index As Integer = 1 To iniSheets
Dim lstMeisai As New ArrayList
xlSheet = xlBook.Sheets(index)
If " 変更履歴 ".Equals(xlSheet.Name.Trim) _
Or " 変更書 ".Equals(xlSheet.Name.Trim) Then
Continue For
End If
If " メソッド名 ".Equals(xlSheet.Cells(5, "B").Value()) Then
If Not lstMethod.Contains(lst(i)) Then
lstMethod.Add(lst(i))
End If
Continue For
End If
lstMeisai.Add("/**********************************************************")
lstMeisai.Add(" * 第 2 次 統合 ATMスイッチングサービス ")
lstMeisai.Add(" *")
lstMeisai.Add(" * SUBSYSTEM NAME : 維持運用支援システム ")
lstMeisai.Add(" * SERVICE NAME : (DD書記載の機能名) ")
lstMeisai.Add(" * FUNCTION : " + xlSheet.Cells(8,
"C").Value())
lstMeisai.Add(" * FILE NAME : " + xlSheet.Cells(6,
"C").Value())
lstMeisai.Add(" *")
lstMeisai.Add(" * 変更履歴 ")
lstMeisai.Add(" * 2010/12/21 " + xlSheet.Cells(4, "H").Value() + "
@SWT オリジナル作成 ")
lstMeisai.Add("**********************************************************/")
lstMeisai.Add("package " + xlSheet.Cells(7, "C").Value() & ";")
lstMeisai.Add("")
lstMeisai.Add("/**")
lstMeisai.Add(" * " + xlSheet.Cells(8, "C").Value() + ".<br>")
Dim blnSousaku As Boolean = False
For rowIndex As Integer = 1 To xlSheet.UsedRange.Rows.Count
If " 操作 ".Equals(xlSheet.Cells(rowIndex, "B").Value()) Then
If blnSousaku = False Then
blnSousaku = True
Else
If Not (xlSheet.Cells(rowIndex + 2, "B").Value() Is
Nothing _
OrElse "".Equals(xlSheet.Cells(rowIndex + 2,
"B").Value()) _
Or " 備 考 ".Equals(xlSheet.Cells(rowIndex + 2,
剩余13页未读,继续阅读
资源评论
czq131452007
- 粉丝: 2
- 资源: 12万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功