CAD、excel与房地产测绘的应用

smpoy

部分代码
BZZH = 0
Dim FHF Set X1 = New Excel.Application X1.Visible = True
X1.SheetsInNewWorkbook = 2
Set zsbworkbook = X1.Workbooks.Add
Oid = Oid + 1
X1.Caption = "阿城市楼房销售面积统计表" & Oid Dim i As Integer
Dim j
Dim FHBS() As String
ReDim FHBS(Int(Text4.Text) + 1) FHBS = Split(frist.RTB(1).Text, ",")
' x1.Range("A1").Value = FHBS(0): x1.Range("B1").Value = FHBS(1) X1.Range("F3").Value = Text5.Text
X1.Range("F3").HorizontalAlignment = xlVAlignCenter
X1.Range("E6").Value = "1层"
X1.Range("C6,H6").HorizontalAlignment = xlVAlignCenter
X1.Range("C7").Value = "房间号"
X1.Range("D7").Value = "套内面积"
'x1.Range("E7").Value = "楼梯间面积"
X1.Range("E7").Value = "系数"
X1.Range("F7").Value = "分摊公用面积"
X1.Range("G7").Value = "销售面积" X1.Range("M6").Value = "2-" & Text2.Text - 1 & "层"
X1.Range("J6,Q6").HorizontalAlignment = xlVAlignCenter
X1.Range("J7").Value = "单元号"
X1.Range("K7").Value = "房间号"
X1.Range("L7").Value = "使用面积+墙"
X1.Range("M7").Value = "阳台"
X1.Range("N7").Value = "套内面积"
X1.Range("O7").Value = "系数"
X1.Range("P7").Value = "分摊面积"
X1.Range("Q7").Value = "销售面积" X1.Range("W6").Value = Text2.Text & "层"
X1.Range("S6,Z6").HorizontalAlignment = xlVAlignCenter
X1.Range("S7").Value = "单元号"
X1.Range("T7").Value = "房间号"
X1.Range("U7").Value = "使用面积+墙"
X1.Range("V7").Value = "阳台"
X1.Range("W7").Value = "套内面积"
X1.Range("X7").Value = "系数"
X1.Range("Y7").Value = "分摊面积"
X1.Range("Z7").Value = "销售面积"
For i = 1 To Text4.Text
j = i + 7
X1.Range("C" & j & "").Value = i
X1.Range("D" & j & "").Value = FHBS(i)
Next i Dim CIDS() As String
ReDim CIDS(Int(Text1.Text) + 1)
Dim k
CIDS = Split(Text3.Text, "|")
i = 0
For i = 1 To Int(Text1.Text)
BZZH = BZZH + Int(CIDS(i)) Next i
X1.Range("C" & BZZH + 7 + 2 & "").Value = "一层楼梯间面积"
X1.Range("d" & BZZH + 7 + 2 & "").Value = RTB(5).Text
X1.Range("j" & BZZH + 7 + 2 & "").Value = "标准层楼梯间面积"
X1.Range("k" & BZZH + 7 + 2 & "").Value = RTB(6).Text
X1.Range("s" & BZZH + 7 + 2 & "").Value = "顶层楼梯间面积"
X1.Range("t" & BZZH + 7 + 2 & "").Value = RTB(7).Text Dim FHS() As String
ReDim FHS(BZZH + 1) FHS = Split(RTB(2).Text, ",") i = 0
j = 0
Dim l
For l = 1 To Int(Text1.Text)
If l = 1 Then
j = l + 7
Else
j = Int(CIDS(l - 1)) + j
End If
X1.Range("J" & j & "").Value = l
i = 0
For i = 1 To Int(CIDS(l))
If i = 1 Then
k = j
Else
k = i + j - 1
End If
X1.Range("K" & k & "").Value = i Next i Next l
FHF = BZZH
i = 0
For i = 1 To FHF + 1
j = i + 7
If j > FHF + 7 Then
GoTo GHG
End If
X1.Range("L" & j & "").Value = FHS(i)
Next
GHG:
cct
Exit Sub
errty:
MsgBox "数据不符合要求，请重新读取数据。", vbInformation + vbOKOnly, "ERROR"

lixiyu

我正需要这程序，请问这程序怎么使用？

inhoo

楼主能不能把你上面的程序代码发完呀