Excel中EDID信息保存设置.docx

目的针对Excel表中的EDID信息怎样自动保存为Bin文件。如下图所示：怎样修改后直接保存为Bin文件？设置方法打开Excel2007，点击“左顶端图标-Excel选型-常用”，选中“在功能区显示“开发工具”选项卡”。图一所示点击“开发工具-录制宏”，宏名可以填写”Save”,保存在选中“个人宏工作薄”，说明里面可以填写“Save EDID”，也可以选择不填写。如图二所示。然后点击“确定”，然后再点击“停止录制”。点击“Visual Basic-VBAProject（PERSONAL.XLSB）-模块-模块1”，然后将下面一段程序全部复制进去。程序：Private Sub SaveData(strFile As String)Const BUFFERSIZE As Long = 4096 每次写4KB数据 Dim aBuffer() As Byte Dim strTemp$, i, j, r Set xlsApp = GetObject(, excel.application) 读取当前工作薄中的内容 If xlsAppIs Nothing Then Exit Sub 清空原始文件（如果编辑后文件长度不会减少，可以不用这个） Open strFile For Output As #1: Close #1 写数据 Open strFile For Binary As #1ReDimaBuffer(BUFFERSIZE - 1)i = 0: r = 3 第3行开始 Do For j = 10 To 25 If (r 10 And r 19) ThenstrTemp = FF ElsestrTemp = xlsApp.Cells(r, j) End If If (Len(strTemp) = 0) Then Exit ForaBuffer(i) = CByte(H strTemp)i = i + 1 Next If (i = BUFFERSIZE) Then i = 0: Put #1, ,aBuffer If (Len(strTemp) = 0) Then If (i = 0) Then Exit SubReDim Preserve aBuffer(i - 1) Put #1, ,aBuffer Exit Sub End If r = r + 1 LoopEnd SubSub Save() SaveEDID Macro SaveEDIDDim lFlag, strTemp$ If Len(strFilename) 0 ThenlFlag = MsgBox(保存数据到： strFilename, 35) If (vbCancel = lFlag) Then Exit SublFlag = vbNo = lFlag ElselFlag = -1 End If If (lFlag) ThenstrTemp = Application.GetSaveAsFilename( _filefilter:=BIN文件（*.bin）,*.bin,所有文件（*.*）,*.*, _ Title:=保存文件) If (strTemp = False) ThenMsgBox 没有保存数据！, vbExclamation Exit Sub End IfstrFilename = strTemp 更换文件名 ElsestrTemp = strFilename End If Call SaveData(strTemp): CloseEnd Sub关闭VB编辑软件。点击“左顶端图标-Excel选型-自定义”，在“常用命令里面选择“宏””选中刚才创建的宏，点击添加，之后可以选择修改对图标进行修改，然后点击“确认”。如图三所示。之后可以在快速启动栏中看到你刚才所增加的图标。如图四所示。点击刚才创建的快捷方式，即可以保存Excel表格中的EDID文件为Bin文件。关闭退出后，如果提示是否保存宏命令，请选择是即可，如果提示保存不了，将360杀毒中的设置按照图五修改即可。以后，打开Excel工作表格都可以点击这个按钮保存Bin文件。图一图二图三图四图五