如何選取最下面第一列資料.網下面一行將資料貼上

显示全部楼层 · 2021-1-27 06:31:07

請問如何選取最下面一列空白處貼上資料
網路上搜尋的VBA方式是在excle中正常工作
Range("A"&Cells(Rows.Count,1).End(xlUp).Row+1).Select
可是我放到VB.net就沒反應了
xlSheet.Range("A"&xlSheet.Cells(xlSheet.Rows.Count,1).End(xlSheet.xlUp).Row+1).Select()
請幫幫忙謝謝

System.Windows.Forms.Clipboard.SetDataObject("")
System.Windows.Forms.Clipboard.SetDataObject(mit_temp)

DimxlAppAsApplication
DimxlBookAsWorkbook
DimxlSheetAsWorksheet
DimxlRangeAsRange
OnErrorResumeNext
'#一部電腦僅執行一個ExcelApplication,就算中突開啟Excel也不會影響程式執行
'#在工作管理員中只會看見一個EXCEL.exe在執行，不會浪費電腦資源
'#引用正在執行的ExcelApplication
xlApp=GetObject("Excel.Application")
'#若發生錯誤表示電腦沒有Excel正在執行，需重新建立一個新的應用程式
IfErr.Number()0Then
Err.Clear()
'#執行一個新的ExcelApplication
xlApp=CreateObject("Excel.Application")
IfErr.Number()0Then
MsgBox("電腦沒有安裝Excel")
End
EndIf
EndIf
xlBook=xlApp.Workbooks.Open("http://mssp1/ISO.xlsx")
xlApp.DisplayAlerts=False'停用警告訊息
'xlApp.Visible=False'設置EXCEL對象不可見
xlApp.Visible=True'設置EXCEL對象可見
xlBook.Activate()'設定活頁簿為焦點
xlBook.Parent.Windows(1).Visible=True'顯示第一個子視窗
xlSheet=xlBook.Worksheets(1)'引用第一個工作表
xlSheet.Activate()'設定工作表為焦點
'===================================================
'xlSheet.Range("A2").Select()'選擇A1儲存格
'xlSheet.Range("A2:Q1000").ClearContents()
'xlSheet.Paste(System.Reflection.Missing.Value,System.Reflection.Missing.Value)'貼上
'xlSheet.Range("A1").Select()'選擇A1儲存格
xlSheet.Range("A"&xlSheet.Cells(xlSheet.Rows.Count,1).End(xlSheet.xlUp).Row+1).Select()
xlSheet.Paste()'貼上

分 -->

千问 · 2021-1-27 06:31:07

程序里面是不能使用.Select的,我从未用成功过,你要指定cell或range,然后再对它赋值!

千问 · 2021-1-27 06:31:07

那請問我要怎麼跳到最後一格沒有資料的呢??
謝謝!!

千问 · 2021-1-27 06:31:07

跳什么?程序里面是不能用select和selection属性的,我反正从没用成功过哦~~
你直接指定位置就可以了呀.
对指定的位置直接用等号赋值~不用拷贝呀粘贴的

千问 · 2021-1-27 06:31:07

你这代码还有问题,DimxlSheetAsWorksheet
一般xlSheet都要指定是哪一个的,Excel可以有不同的工作区的,
一般正确的代码都有这行
xlSheet=xlBook.Worksheets("sheet1")
我建议你先找个完整的写Excel或导出Excel的例子代码先把基础的东西搞清楚,别急着走下一步.

千问 · 2021-1-27 06:31:07

就是不知道位置阿所以才需要這個功能
因為需要貼上兩次的資料筆數不確定..第一次貼完後
移動到最後面然後貼上第二次
請大家幫幫想想辦法吧
VBAOKVB.NET應該也行吧

千问 · 2021-1-27 06:31:07

所以你要计算!~你第一次贴的内容有多少行,就能算出第二次贴的位置~
真的,你这代码就算正确,也不能运行的,因为你没有指定是哪个工作区,VBA与程序,根本不是一回事,我还是建议你找个完整的,正确的例子代码,先打基础.
在EXE中,操作Excel条件非常苛刻,许多操作都要求非常精确.位置,类型,错一点点都不行!!

千问 · 2021-1-27 06:31:07

xlSheet=xlBook.Worksheets(1)'引用第一個工作表
哦,没看到这一句,你还是有这句的.呵呵

千问 · 2021-1-27 06:31:07

引用7楼的回复:xlSheet=xlBook.Worksheets(1)'引用第一個工作表
哦,没看到这一句,你还是有这句的.呵呵
沒錯所以我只差選到最下面
指定位置貼上是OK的
請幫幫忙謝謝!!

千问 · 2021-1-27 06:31:07

Exe中是不能用select和selection的,你怎么不相信我呢.
你想想,select和selection是怎么发生的,它是Excel的程序,是用鼠标选出来的.可你现在用exe操作,哪有鼠标动作?除非是用exe给excel发送鼠标动作,那还不如计算行数简单呢,