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如果不打開的情況下是無法直接更新值的。
完整的東東看附件吧