[已解决]求助:跨工作簿保存数据 代码

对你微笑

求助:跨工作簿保存代码
Sub LED显示()
Dim sh As Worksheet, FF As Workbook, arr
Application.ScreenUpdating = False
Set sh = ActiveSheet
Set FF = GetObject(ThisWorkbook.Path & "\" & "LED数据.xls")
    arr = sh.Range("A34:B34")
    FF.Sheets("LED").[A65535].End(xlUp).Offset(1, 0).Resize(1, 2) = arr
   
    Application.Windows(FF.Name).Visible = True
   
    FF.Close True
Application.ScreenUpdating = True
End Sub
求助:1、跨工作簿保存可否从第一行开始保存；
        2、可否对保存的数据进行清空（每天的保存数据从第一行开始保存）。

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-12-15 10:37

1. Sub LED显示1()
   
2. Dim sh As Worksheet, FF As Workbook, arr
   
3. Application.ScreenUpdating = False
   
4. Set sh = ActiveSheet
   
5. Set FF = GetObject(ThisWorkbook.Path & "" & "LED数据1.xls")
   
6. arr = sh.Range("A34:B34")
   
7.   If FF.Sheets("LED1").[A1] = "" Then
   
8.     FF.Sheets("LED1").[A1].End(xlUp).Resize(1, 2) = arr
   
9.   Else
   
10.     FF.Sheets("LED1").[A65535].End(xlUp).Offset(1, 0).Resize(1, 2) = arr
    
11.   End If
    
12.     Application.Windows(FF.Name).Visible = True
    
13.     Application.DisplayAlerts = False '关闭警告和消息
    
14.       FF.Close True
    
15. Application.ScreenUpdating = True
    
16. End Sub

复制代码

跳转到最佳答案楼层

对你微笑

请各位大师帮忙看看，谢谢！！！

七彩屋

从第一行开始保存：那就从A1开开始保存
数据进行清空：是不是每天都要全部清空后再写入数据？

对你微笑

七彩屋 发表于 2015-12-14 12:49
从第一行开始保存：那就从A1开开始保存
数据进行清空：是不是每天都要全部清空后再写入数据？

是的，就是这个意思。

七彩屋

对你微笑 发表于 2015-12-14 14:42
是的，就是这个意思。

只写入二个单元格的值？   A34:B34

七彩屋

Sub LED显示()
Dim sh As Worksheet, FF As Workbook, arr
Application.ScreenUpdating = False
Set sh = ActiveSheet
Set FF = GetObject(ThisWorkbook.Path & "\" & "LED数据.xls")
     arr = sh.Range("A34:B34")
     FF.Sheets("LED").Range("A1:B1").ClearContents
     FF.Sheets("LED").[A1].Resize(1, 2) = arr
   
     Application.Windows(FF.Name).Visible = True
     
     FF.Close True
Application.ScreenUpdating = True
End Sub

对你微笑

七彩屋 发表于 2015-12-14 15:08
Sub LED显示()
Dim sh As Worksheet, FF As Workbook, arr
Application.ScreenUpdating = False

多谢七彩屋
1、但每天有很多条信息，要求每次保存数据时，不删除之前保存数据，逐行保存下去！
2、每天都要全部清空后再写入数据，是否可以设置一控件，跨工作簿删除该工作簿数据！

多谢七彩屋老师

七彩屋

模拟一点数据上传附件看看

对你微笑

七彩屋 发表于 2015-12-14 16:23
模拟一点数据上传附件看看

附件已上传：
多谢七彩屋老师,帮我看看第一点：
1、但每天有很多条信息，要求每次保存数据时，不删除之前保存数据，逐行保存下去！
第二点：已解决！谢谢！
2、跨工作簿删除该工作簿数据！已解决！谢谢！

七彩屋

第一个问题
arr = sh.Range("A34:B34")
    FF.Sheets("LED1").[D65535].End(xlUp).Offset(1, 0).Resize(1, 2) = arr     Application.Windows(FF.Name).Visible = True
     Application.DisplayAlerts = False '关闭警告和消息  可以加上这一行