顯示具有 Excel and VBA 標籤的文章。顯示所有文章

2011年10月5日星期三

VB Excel AutoFill方法失敗

'發現說檔案只有一個資料的時候存檔
會發生 Class Range 的 autoFill 方法失敗的問題

猜測是因為autofill 無法作用在單一cell的 range上 range("B2:B2")
所以可能要走

oExcel.Sheets(1).Application.Selection.Copy()
oExcel.Sheets(1).Range("D2").Select()
oExcel.Sheets(1).Application.Selection.PasteSpecial(Paste:=-4163, Operation:=-4142, SkipBlanks _
:=False, Transpose:=False)

2011年9月4日星期日

#VB 透過外部資源匯入Excel 範例

'可能還是需要注意遺下

釋放資源問題
==================================================

[.net]vb.net匯出資料到Excel檔

http://www.wretch.cc/blog/wthomasu/4954895

先把資料寫成txt

再轉Excel

再用excel開啟,寫入格式

超快

'目前每次轉完檔案,將會出現
目前可用檔案對話框

好像跟正在使用的檔案有關係

卡到大魔王了

馬的一直繞不過去
猜測應該是我在TXT的時候加上單引號
這時候他會把該段字串當作文字
寫到EXCEL

所以打開還是會看到單引號

而我在點兩下編輯
跳出焦點
他就會視為將CELL轉為文字的單引號

用List 去抓每個值
用LOOP重新寫進去

====================================================
Excel VBA教程：OpenText方法

http://www.feiesoft.com/vba/excel/xlmthOpenText.htm

當透過 openText 去存成文字檔

需要設定分隔符號

該分隔符號會再轉 EXCEL 的時候

作為分隔列的分隔字元

因為要寫入Function

會用到逗號

就改成 "^" 作為分隔符號

oExcel.Workbooks.OpenText(Filename:=txtPath, StartRow:=1, DataType:=1, _

TextQualifier:=1, ConsecutiveDelimiter:=True, TAB:=False, _

Semicolon:=False, Comma:=False, _

Space:=False, Other:=True, OtherChar:="^", TrailingMinusNumbers:=True)

====================================================

Marshal.ReleaseComObject 方法

http://msdn.microsoft.com/zh-tw/library/system.runtime.interopservices.marshal.releasecomobject(v=vs.80).aspx

釋放com 元件

==================================================================

ADO.NET 擷取與修改利用 Visual Basic .NET 之 Excel 活頁簿中的記錄

http://support.microsoft.com/kb/316934/zh-tw

Public Sub Use_External_Source()

      ' Open a connection to the sample Northwind Access database.
      Dim conn As New System.Data.OleDb.OleDbConnection( _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & m_sNorthwind & ";")
      conn.Open()
      Dim cmd As New System.Data.OleDb.OleDbCommand()
      cmd.Connection = conn

'=======================================================================
      ' Run an INSERT..INTO command on the Northwind database to append 
      ' the records from a table/query to an existing table in the Excel 
      ' workbook.
'=======================================================================
      cmd.CommandText = "INSERT INTO [EmployeeData$] IN 'C:\ExcelData1.xls' 'Excel 8.0;'" & _
         "SELECT EmployeeID AS ID, FirstName AS Name, BirthDate FROM Employees"
      cmd.ExecuteNonQuery()

'==========================================================================
      ' Run a SELECT..INTO command on the Northwind database to insert 
      ' all the records from a table/query into a new sheet in the Excel 
      ' workbook.
'==========================================================================
      cmd.CommandText = "SELECT * INTO [Excel 8.0;Database=C:\ExcelData2.xls].[ProductSales]" & _
                      "FROM [Product Sales for 1997]"
      cmd.ExecuteNonQuery()

      conn.Close()

End Sub

2011年9月3日星期六

#VB Net讀取Execl問題回顧

Net讀取Execl問題回顧

http://www.stackdoc.com/a/bianchengyuyan/ASP/20110829/123634.html

在網上有很多同志說是加上HDR或IMEX這兩個屬性值後會報“找不到可安裝的ISAM ”的錯誤。這時解决方法很簡單：
就是把連接串寫成如下形式：
Provider=Microsoft.Jet.Oledb.4.0;Data Source={0};Extended Properties='Excel 8.0;HDR=1; IMEX=1;' (注意紅色標注的單引號)
而不要寫成這样的形式：
Provider=Microsoft.Jet.Oledb.4.0;Data Source={0};Extended Properties=Excel 8.0;HDR=1; IMEX=1;

2011年8月23日星期二

@ALL CASE

'目前寫入EXCEL都是一個CELL一個CELL去寫(for 資料量大,會很慢)
找看有沒有方法,透過ODBC的方式直接將不同資料來源的資料
塞入另一個資料來源

然後再開啟建立的XLS寫聚集設格式

或是說可以整筆
多筆之類的一次寫入

或是透過LINQ

要再查看看

如何將dataset資料匯出成為實際excel檔案？

http://social.msdn.microsoft.com/Forums/zh-TW/230/thread/e0e4069c-e48f-4a0b-8651-8c70fdfa2fa9/

HOW TO：使用 ADO.NET 擷取與修改利用 Visual Basic .NET 之 Excel 活頁簿中的記錄

http://support.microsoft.com/kb/316934/zh-tw

TIPS-Export GridView To Excelhttp://blog.darkthread.net/blogs/darkthreadtw/archive/2011/02/24/1143.aspx

Table的資料量過大，要如何做備份的工作呢?

http://webcache.googleusercontent.com/search?q=cache:RWG48U5QN5gJ:www.blueshop.com.tw/board/show.asp%3Fsubcde%3DBRD20070202150346K77%26fumcde%3DFUM20041006152735ZFS+table+%E8%BD%89+excel+%E8%B3%87%E6%96%99%E9%87%8F%E5%A4%A7&cd=12&hl=zh-TW&ct=clnk&gl=tw&lr=lang_zh-CN|lang_zh-TW

通過VS.NET調用 SQL 的DTS
http://kb.cnblogs.com/a/408128/

SSIS功能體驗(一)、匯入EXCEL檔案

'需要將 Paging 做一個類別
用呼叫的

'GridView 因為滑鼠滑過row,顏色變換

造成gridview重繪,畫面閃爍

Control.DoubleBuffered 屬性

鼠标在dataGridView控件上移动时的问题,请教下了!

http://www.aspxbing.com/index/12756.html
==============================================
'發現說如果一開始進入表單
馬上使用鍵盤ctrl+C 去複製一開始 focus的 textbox
會出現錯誤

似乎是說,一開始如果剪貼簿完全沒東西
我的程式在執行複製動作的時候
就會出現這個問題
(一開始直接貼上不會有問題,滑鼠右鍵複製貼上也沒問題)

不太清楚哪邊有錯誤

ClipBoard.SetDataObject()
去設定要複製的字串
就完成
但還是不太知道原因一一

'所有介面要再修一夏

'盡量把鍵盤輸入做好

'竟可能能夠自動Focus到相關步驟之下

'做一些異常資料的panel 可以折疊

'gridview的column如果一開始設定自動大小
就不能再透過使用者設定

或是說有其他方式
要在查遺下

2011年10月5日 星期三