FarPoint Spread8.0 .6控件怎样给单元格赋值

CAONI

请问一下：FarPoint Spread8.0.6 控件怎样按钮给单元格赋值

如将55赋值给第2行第3列的单元格：


在excel中可写成：Cells（2，3）=55，那么FarPoint Spread8.0.6 控件怎样写？

下面这格式：

Me.fpSpread1.Cells（2，3）.Text = 55

即：Cells（2，3）.Text这部分怎样写，谢谢！

lss001

Sub fAdo()
    'Dim fs As FPUSpreadADO.fpSpread '对象参考
    'Dim fsp As FPUSpreadADO.fpSpreadPreview
    'Set fsp = New FPUSpreadADO.fpSpreadPreview
    'Set fs = New FPUSpreadADO.fpSpread
   
    For Each shp In ActiveSheet.Shapes '当前表格形状
        If InStr(shp.Name, "fpSpread") Then '判断
        With shp.OLEFormat.Object.Object 'fpSpread1对象
            
            .SetText 1, 1, 10 '设置值(行号，列号，常量或变量)：10
            .GetText 1, 1, var '获取值(行号，列号，变量)：var
            MsgBox "var值：" & var
        End With
        End If
    Next
End Sub

CAONI

lss001 发表于 2023-2-28 17:31
Sub fAdo()
    'Dim fs As FPUSpreadADO.fpSpread '对象参考
    'Dim fsp As FPUSpreadADO.fpSpreadPre ...

老师你好，在vb6.0中我要把txt文本逐条写入fpSpread1控件第2列中，Command1运行时无显示，但Command2中a值能正常填写，麻烦你看看问题所在，谢谢！

Private Sub Command1_Click()
Dim t As String, aa, a As Long, b As Long
CommonDialog1.ShowOpen '打开对话框  CommonDialog为文本控件，要添加
t = CommonDialog1.FileName '获取文件名
Open t For Input As #1 '打开文件并读入
    aa = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) '将文件号转换
    Close #1
    For b = 0 To UBound(aa)
        If Len(aa(b)) Then
         a = a + 1
            Me.fpSpread1.SetText 2, a, aa(b) '赋值
        End If      
    Next
End Sub


下面测试时 a值能正常填写

Private Sub Command2_Click()
a = 2
For i = 1 To 6
Me.fpSpread1.SetText 2, i, a 'SetText 列, 行 参数
a = a + 1
Next
End Sub

lss001

'以上为表格控件
'如为窗体控件则代码如下

Private Sub fpSpread1_Click(ByVal Col As Long, ByBal Row As Long) '单击
    '设置值
    Me.fpSpread1.SetText 1, 1, 55
    '获取值
    Me.fpSpread1.GetText 1, 1, var
    '其它参考楼上
End Sub

CAONI

lss001 发表于 2023-2-28 20:39
'以上为表格控件
'如为窗体控件则代码如下

单个值能显示：
Me.fpSpread1.SetText 1, 1, 55
如果是数组就不行了：
k=1
for i=1 to 10
Me.fpSpread1.SetText 1, k, arr(i)
k=k+1
next

arr(i)值不能显示

lss001

CAONI 发表于 2023-2-28 20:50
单个值能显示：
Me.fpSpread1.SetText 1, 1, 55
如果是数组就不行了：

'注意：窗体中赋值是事件赋值，
'以下代码是单击事件
'单击表格即可

Private Sub fpSpread1_Click(ByVal Col As Long, ByBal Row As Long) '单击
    arr = Array(1, 2, 3, 4, 5) '数组
    '方法1设置值
    For i = 1 To Ubound(arr)
        Me.fpSpread1.SetText 1, i, arr(i - 1)
    Next
   '方法2设置值
   For i = 1 To Ubound(arr)
     With Me.fpSpread1
        .Row = 1
        .Col = i
        'Value数值，Text文本
       .Value = arr(i - 1)
      End With
    Next
End Sub

CAONI

lss001 发表于 2023-3-1 09:40
'注意：窗体中赋值是事件赋值，
'以下代码是单击事件
'即运行代码后还需要单击表格！

老师你好，按照你的方法圆满解决此控件txt文本导入，谢谢！！！

CAONI

lss001 发表于 2023-3-1 09:40
'注意：窗体中赋值是事件赋值，
'以下代码是单击事件
'单击表格即可

在单击事件中：

excel  vba将b1列数据放在变量arr中可写成：
arr = Range("b1:b" & Range("b1048576").End(xlUp).Row)

请问：FarPoint Spread8.0 .6控件能否将第2列数据一次性放在变量arr中，谢谢！