err数据怎么提炼

Ⅰ 电子地磅显示器显示ERR故障代码应该如何处理

作为售后人员，常常会遇到，电子地磅显示器显示err故障代码，怎么解决电子地磅秤显示err1、err2、err3、err4、err5、err6、err7、err8、err9、lllll/hhhhh、over等代码故障。分析一下，每个代码所代表的意思：
1、+/-err：超过lcd显示范围/传感器线断、或传感器不良
;
2、+/-err2/unst：起始零点超过+/-10%/外部有干涉（如有振动或风吹或其它物体碰到秤盘等）;
3、+/-err3/out2：ad/load故障/开机时秤盘上有东西/外部有干涉;
4、err4/erre：存器坏/存储器内部数据丢失，可重新设定及校正或更换存储器后再重新设定及校正;
5、err5/eeeee：过载（超过最大秤量+9e)/或传感器不良/校正值较大变化（需重新校正）
6、err6/errc：校正法码不对/或需做线性校正;
7、err7：秤量与感量设定错误（需重新设定秤量及感量）;
8、err8：使用单位与开机单位设定冲突（需重新设定使用单位及开机单位）
;
9、err9：设定low值大于或等hi值;
10、lllll/hhhhh：内码过低或过高（需调整）/传感器不良;
11、over：累计超过99笔/机板线路断
;
12、电池符号：电池没电/机板或电子线路有问题
;
13、若以设定的方式不能排除以上之故障，建议送回经销站处理。

Ⅱ 你好，麻烦您问一下，EXCEL里如何将表格名和表格里的数据一起提取出来谢谢

被邀请回答，还关注了我一下，虽然已经有回签被推荐，我还是回复一下吧，猛一看，以为是要工作表名，但仔细想想，估计你想通过VB代码获得数据，我分两个分别回你吧。
一、获得名称方法，办法比较多，我列了四个
1、定义名称：Name

=GET.DOCUMENT(88)

2、定义名称：Path

=GET.DOCUMENT(2)

3、在A1中输入=CELL("filename")得到路径级文件名

在需要得到文件名的单元格输入

=MID(A1,FIND("*",SUBSTITUTE(A1,"\","*",LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))+1,LEN(A1))

4、自定义函数

Public Function name()

Dim filename As String

filename = ActiveWorkbook.name

name = filename

End Function
二、实际是想获得数据
Sub CombineWorkbooksrange()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo err
FilesToOpen = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt *.xlsx *.xlsb）,*.xls;*.xla;*.xlt;*.xlsx;*.xlsb", MultiSelect:=True, Title:="要取数的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
GoTo err
End If
x = 1
While x - 1 < UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
For i = 1 To wk.Sheets.Count
If wk.Sheets(i).Name = "1" Then
Set xlra = wk.Sheets("1").[C5]
Else
Set xlra = wk.Sheets(i).[C5]
End If '注意，引号内的1就是你要的相同工作表名,如果工作表名无要求，则继续，取单元格数值，现在是取C5
Sheet1.Range("a65500").End(xlUp).Offset(1, 0) = xlra & "工作表名:" & wk.Sheets(i).Name
Next
x = x + 1
wk.Close
Wend
MsgBox "获取数据完成！"
err:
End Sub

Ⅲ 地磅出现ERR怎么解决

1、+/-Err：超过LCD显示范围/传感器线断、或传感器不良;
2、+/-Err2/Unst：起始零点超过+/-10%/外部有干涉（如有振动或风吹或其它物体碰到秤盘等）;
3、+/-Err3/Out2：AD/LOAD故障/开机时秤盘上有东西/外部有干涉;
4、Err4/ErrE：存器坏/存储器内部数据丢失，可重新设定及校正或更换存储器后再重新设定及校正;
5、Err5/EEEEE：过载（超过最大秤量+9e)/或传感器不良/校正值较大变化（需重新校正）
6、Err6/ErrC：校正法码不对/或需做线性校正;
7、Err7：秤量与感量设定错误（需重新设定秤量及感量）;
8、Err8：使用单位与开机单位设定冲突（需重新设定使用单位及开机单位）;
9、Err9：设定LOW值大于或等HI值;
10、LLLLL/HHHHH：内码过低或过高（需调整）/传感器不良;
11、Over：累计超过99笔/机板线路断;
12、电池符号：电池没电/机板或电子线路有问题;
13、若以设定的方式不能排除以上之故障，建议送回经销站处理。

Ⅳ 怎么在多个（上千个）excel表中提取出特定的数据

将以下代码复制到你要合并的工作表VBA视窗，然后执行此代码

Sub CombineWorkbooksrange()

Dim FilesToOpen, ft

Dim x As Integer

Application.ScreenUpdating = False

On Error GoTo err

FilesToOpen = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt *.xlsx *.xlsb）,*.xls;*.xla;*.xlt;*.xlsx;*.xlsb", MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then

MsgBox "没有选定文件"

GoTo err

End If

x = 1

While x - 1 < UBound(FilesToOpen)

Set wk = Workbooks.Open(Filename:=FilesToOpen(x))

For i = 1 To wk.Sheets.Count

Set xlra = wk.Sheets(i).Range("a1:z1")

'注意，引号内的1就是你要的相同工作表名,如果工作表名无要求，则继续，取单元格数值，现在是取a1:z1

Sheet1.Range("a65500").End(xlUp).Offset(1, 0) = wk.Name

xlra.Offset(0, 0).Resize(xlra.Rows.Count, xlra.Columns.Count).Copy Sheet1.Range("a65500").End(xlUp).Offset(1, 1)

Next

x = x + 1

wk.Close

Wend

MsgBox "合并成功完成！"

err:

End Sub

Ⅳ 如何在多个excel文件中提取数据

这个可以用宏程序实现，以下是当年做项目请教excelhome大神的结果：
首先将要读取的excel表格放到一个文件夹中，然后将我附件的excel表格放到此文件中打开
用VBA去遍历这个文件夹中的所有表格，得到文件名和地址放到excel中，

Sub 汇总_Click()Dim xlsFile As StringDim iRow As Long, i As LongOn Error GoTo errHeadleriRow = Range("A" & Rows.Count).End(xlUp).RowxlsFile = Dir(ActiveWorkbook.Path & "/*.xls")Do If InStr(1, xlsFile, "汇总") = 0 Then i = i + 1 Range("A" & iRow + i) = xlsFile Range("B" & iRow + i) = ActiveWorkbook.Path & "\" End If xlsFile = DirLoop Until Len(xlsFile) = 0extSub: Exit Sub errHeadler: MsgBox "抱歉，程序运行时发生意外！请联系作者。", , "提示" Resume extSub End Sub这个时候VBA的使命完成
剩下的就是excel的公式技巧了，“地址&文件名&表名&单元地址”就是你要的结果了，不过我用了 ' 之后做了一步替换操作才显示出值，原因是excel如果不打开的情况下是无法直接更新值的。
完整的东东看附件吧