adib202
شنبه 07 آبان 1390, 16:58 عصر
با سلام
يه كمك خيلي فوري از دوستان مي خوام
من با اين كد اطلاعاتمو از vb به exel منتقل مي كنم ولي ميخوام فرمت سلول هاي يك ستون هم مشخص كنم كه مثلا text باشه يا number :
Dim xlSheet As Excel.Worksheet
Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "Can't open Excel."
End If
End If
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
AppActivate "FlexGrid To Excel Demo"
xlSheet.DisplayRightToLeft = True
For i = 0 To VS.Rows
VS.Row = i
For n = 0 To 4
VS.Col = n
objWorkbook.ActiveSheet.Cells(i + 1, 1).ColumnWidth = 5
objWorkbook.ActiveSheet.Cells(i + 1, 1).HorizontalAlignment = xlCenter
objWorkbook.ActiveSheet.Cells(i + 1, n + 1).Font.Name = "tahoma"
objWorkbook.ActiveSheet.Cells(i + 1, n + 1).Value = VS.Text
Next
Next
از دوستان اگه كسي ميتونه كمك كنه.:چشمک:
يه كمك خيلي فوري از دوستان مي خوام
من با اين كد اطلاعاتمو از vb به exel منتقل مي كنم ولي ميخوام فرمت سلول هاي يك ستون هم مشخص كنم كه مثلا text باشه يا number :
Dim xlSheet As Excel.Worksheet
Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "Can't open Excel."
End If
End If
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
AppActivate "FlexGrid To Excel Demo"
xlSheet.DisplayRightToLeft = True
For i = 0 To VS.Rows
VS.Row = i
For n = 0 To 4
VS.Col = n
objWorkbook.ActiveSheet.Cells(i + 1, 1).ColumnWidth = 5
objWorkbook.ActiveSheet.Cells(i + 1, 1).HorizontalAlignment = xlCenter
objWorkbook.ActiveSheet.Cells(i + 1, n + 1).Font.Name = "tahoma"
objWorkbook.ActiveSheet.Cells(i + 1, n + 1).Value = VS.Text
Next
Next
از دوستان اگه كسي ميتونه كمك كنه.:چشمک: