vba 瀛愯绷绋嬫垨鍑芥暟链?畾涔
Sub 锻煎彨寤虹珛()
Dim ActiveData
ActiveData = ActiveSheet.Value
Sheets.Add Before:=Sheets(1)
Sheets("锻煎彨寤虹珛鎴愬姛鐜?).Select
fileToOpen = Application.GetOpenFilename("", , , , True)
If VarType(fileToOpen) = vbBoolean Then
MsgBox "No files selected!"
Else
For Each fn In fileToOpen
Application.Run "'娴奶瘯.xls'!DateFormat"
Sheets("锻煎彨寤虹珛鎴愬姛鐜?).Select
If ActiveData "" And ActiveCell.Offset(0, 2) "" And ActiveCell.Offset(0, 4) "" And ActiveCell.Offset(0, 6) <> "" Then
Active.Cell.Offset(0, 7).FormulaR1C1 = "=AVERAGE(ActiveCell.Offset(0,1),ActiveCell,Offset(0,6))"
End If
End Sub
答：很简单，你在网上搜索下VB.NET的UDP或者TCP通讯代码就成了，有很多的，有单对单或者单对多详情>>
