excel로 표 작성 문장 생성하기
sub createTable()
Columns(1).ClearContents
Dim tableCount As Integer
Dim fieldCount As Integer
Dim fields As String
Dim eachFieldCount As Integer
Dim dt As String
Dim f As String
dt = Format(Now, "YYYYMMDDHHMMSS")
f = ThisWorkbook.Path & "/createTable" & dt & ".txt"
Open f For Output As #1
tableCount = Int(Sheet4.Cells(1, 2))
fieldCount = Int(Sheet4.Cells(1, 4))
MsgBox (" : " & tableCount & " " & " " & fieldCount)
For i = 1 To tableCount
fields = ""
eachFieldCount = 0
For j = 1 To fieldCount
If Sheet2.Cells( : ) = Sheet1.Cells( : ) Then
fields = fields + "`" + Trim(Sheet2.Cells( : )) + "`" + " " + Trim(Sheet2.Cells( : )) + " " + " comment " + "'" + Trim(Sheet2.Cells( :comment)) + "'" + "," + Chr(10)
eachFieldCount = eachFieldCount + 1
End If
Next
fields = Left(fields, Len(fields) - 2)
Print #1, "-- " + CStr(i) + "----" + Sheet1.Cells( : ) + ", " + "----" + CStr(eachFieldCount)
Print #1, "CREATE TABLE IF NOT EXISTS " + "`" + " ." + Sheet1.Cells( : ) + "`"
Print #1, "("
Print #1, fields
Print #1, ")" + " comment " + "'" + Trim(Sheet1.Cells( :comment)) + " '"
Print #1, "ROW FORMAT DELIMITED FIELDS TERMINATED BY ','"
Print #1, "stored As textfile;"
Print #1, ""
Sheet3.Cells( ) = eachFieldCount
Next
Close #1
End Sub
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Spark + HWC로 Hive 테이블을 만들고 자동으로 Metadata를 Atlas에 반영합니다.HDP 3.1.x의 경우 Spark + HWC에서 Hive 테이블을 만들고 자동으로 Metadata를 Atlas에 반영하는 방법이 있습니다. 방법: 전제조건: Hive Warehouse Connector (HWC) ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.