vba tự động lấy dữ liệu từ etabs (2 người xem)

[6hoangcickg]

Sub Get_ETABS_Data()

Dim etabsApp As Object, SapModel As Object

Set etabsApp = CreateObject("CSI.ETABS.API.ETABSObject")

Set SapModel = etabsApp.SapModel



On Error GoTo ErrHandler

etabsApp.ApplicationStart

SapModel.File.OpenFile "C:\Project\Model.edb"



' Setup nội lực

SapModel.Results.Setup.DeselectAllCasesAndCombosForOutput

SapModel.Results.Setup.SetCaseSelectedForOutput "COMB1", True



' Lấy nội lực tại điểm

Dim NumberResults As Long, Obj() As String, Elm() As String

Dim StepType() As String, StepNum() As Double, F1() As Double

SapModel.Results.FrameForce "B1", 0, NumberResults, Obj, Elm, StepType, StepNum, F1



' Đổ dữ liệu ra Excel

For i = 0 To NumberResults - 1

Sheets("Input").Cells(i + 2, 1).Value = Obj(i)

Sheets("Input").Cells(i + 2, 2).Value = F1(i)

Next i



MsgBox "Lấy nội lực xong!"

Exit Sub

ErrHandler:

MsgBox "Lỗi khi kết nối ETABS!"

End Sub

---

​

 

[thuytrangbp28]

Bài viết không một câu chào hỏi hay mô tả, file trắng trơn không có gì... Bạn chủ bài chắc là thuộc diện diễn viên hoặc người hâm mộ của thể loại Kịch không lời

 

[VetMini]

Bài viết không một câu chào hỏi hay mô tả, file trắng trơn không có gì... Bạn chủ bài chắc là thuộc diện diễn viên hoặc người hâm mộ của thể loại Kịch không lời

Hình như đây là khẩu quyết Hấp Tinh Đại Pháp của Nhiệm Ngã Hành trong Tiếu Ngạo Giang Hồ (Kim Dung)