Application.ActiveWorkbook.Path 获取当前excel文件所在的文件地址
Excel VBA中表示当前工作簿,有Activeworkbook和Thisworkbook 两种表示方法,二者的相同点和区别是什么?
thisworkbook指当前VBA代码所处的Workbook,
Activeworkbook指当前活跃的Workbook
相同点：如果VBA代码只对本身工作簿进行操作，则一直是相同的
不同点：若VBA代码新建或打开了其它工作簿，则往往新建的或刚打开的是Activeworkbook，可以通过 “工作簿名。active”方法激活指定对象
用InputBox函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。Text1 = InputBox("请在下面输入内容：","输入框","默认值")
Cells(Rows.Count, 1).End(xlUp).Row的含义
NextRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
这句话的意思是 取活动单元表的第一列最后一个有值的行的下一行行号。
Rows.Count是指当前活动工作表的行数，为数字 1048576，很熟悉的一个数字，为Excel工作表的最大行数
Cells(Rows.Count, 1)，则是定位到第一列的最后一行cell，即单元格“A1048576”
主要是End(xlUp)比较难理解。
Range.End属性是返回一个 Range 对象，该对象代表包含源 区域的区域尾端的单元格。
End(xlUp)等同于End mode下+UP键，或Ctrl+Up
IF 条件 THEN END IF结尾
For 步长 To 最长
Next
写文件 Print #1, "/**"
Sub convertjava()
'java文件名称获取
Dim javaName As String
Dim javaNote As String
'定义步长
Dim a&, b&, c&
'列的步长
Dim columnCount&, j&, k&, m&
Dim columnName As String
Dim name As String
Dim typeName As String
'表字段所在位置
j = 2
'表字段类型所在位置
k = 3
'表字段中文名称所在位置
m = 1
'表中文名称所在位置
b = 1
'表名称所在位置
c = 2
Text1 = InputBox("请输入包名：", "输入框", " ")
If (InStr(Text1, " ") = 1) Then
MsgBox "包名输入不正"
Else
For a = 2 To ActiveWorkbook.Worksheets.Count
'获取表名称
javaName = ActiveWorkbook.Worksheets(a).Cells(c, 1).Value
'截取第一个无用字符串
javaName = Mid(javaName, 2, Len(javaName))
'字符串替换，下划线替换成空格
javaName = Replace(javaName, "_", " ")
'将表名称全部修改成首字母大写
javaName = StrConv(javaName, vbProperCase)
'将空格替换成空
javaName = Replace(javaName, " ", "")
'写文件
Open Application.ActiveWorkbook.Path & "/" & javaName & ".java" For Output As #1
Print #1, "package " & Text1
Print #1, "/**"
Print #1, " *"
Print #1, " *" & ActiveWorkbook.Worksheets(a).Cells(b, 1).Value
Print #1, " *"
Print #1, " */"
Print #1, "public class " & javaName & "{"
columnCount = ActiveWorkbook.Worksheets(a).Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To columnCount + 1
If (ActiveWorkbook.Worksheets(a).Cells(i, 4).Value <> 0 And ActiveWorkbook.Worksheets(a).Cells(i, 4).Value <> "") Then
columnName = ActiveWorkbook.Worksheets(a).Cells(i, j).Value
'字符串替换，下划线替换成空格
columnName = Replace(columnName, "_", " ")
'将表名称全部修改成首字母大写
columnName = StrConv(columnName, vbProperCase)
'将空格替换成空
columnName = Replace(columnName, " ", "")
columnName = LCase(Left(columnName, 1)) & Right(columnName, Len(columnName) - 1)
Print #1, "private String " & columnName & ";//" & ActiveWorkbook.Worksheets(a).Cells(i, m).Value
End If
Next
For i = 4 To columnCount + 1
If (ActiveWorkbook.Worksheets(a).Cells(i, 4).Value <> 0 And ActiveWorkbook.Worksheets(a).Cells(i, 4).Value <> "") Then
columnName = ActiveWorkbook.Worksheets(a).Cells(i, j).Value
'字符串替换，下划线替换成空格
columnName = Replace(columnName, "_", " ")
'将表名称全部修改成首字母大写
columnName = StrConv(columnName, vbProperCase)
'将空格替换成空
columnName = Replace(columnName, " ", "")
typeName = ActiveWorkbook.Worksheets(a).Cells(i, k).Value
If 1 = 1 Then
End If
name = LCase(Left(columnName, 1)) & Right(columnName, Len(columnName) - 1)
Print #1, "/**"
Print #1, " *"
Print #1, " * get " & ActiveWorkbook.Worksheets(a).Cells(i, m).Value
Print #1, " *"
Print #1, " */"
Print #1, " public String get" & columnName & "( ){"
Print #1, " return " & name & ";"
Print #1, "}"
Print #1, "/**"
Print #1, " *"
Print #1, " * set " & ActiveWorkbook.Worksheets(a).Cells(i, m).Value
Print #1, " *"
Print #1, " */"
Print #1, " public void set" & columnName & "( String " & name & "){"
Print #1, " this." & name & " = " & name & ";"
Print #1, "}"
End If
Next
Print #1, "}"
Close #1
Next a
Close #1
MsgBox "生成Java文件成功"
End If
End Sub
