Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > .NET Framework > Forum > win app กับ excel ถ้า select ข้อมูลมาใส่ datatable ไว้เพื่อแสดงข้อมูล แล้วพอกดปุ่ม print ก็เอาข้อมูลนั้นไปใส่ในไฟล์ excel



 

win app กับ excel ถ้า select ข้อมูลมาใส่ datatable ไว้เพื่อแสดงข้อมูล แล้วพอกดปุ่ม print ก็เอาข้อมูลนั้นไปใส่ในไฟล์ excel

 



Topic : 044224



โพสกระทู้ ( 26 )
บทความ ( 0 )



สถานะออฟไลน์




ถ้า select ข้อมูลมาใส่ datatable ไว้เพื่อแสดงข้อมูล แล้วพอกดปุ่ม print ก็เอาข้อมูลนั้นไปใส่ในไฟล์ excel ที่เราสร้างไว้แล้ว พร้อมกับเปิดไฟล์นั้นขึ้นมาให้ดูเพื่อสั่งพิมพ์ โดยที่เราสามารถกำหนดได้ว่าจะเอาไปไว้ตำแหน่งไหนบ้าง มันจะต้องเขียนโค้ดประมาณไหนอ่ะคะ (win app, vb.net)ไม่เคยเขียนมาก่อนเลยอ่ะคะ ดูตัวอย่างแล้วส่วนใหญ่ก็เป็น web ไม่ค่อยเข้าใจ รบกวนหน่อยนะคะ



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-06-19 10:51:55 By : Pink_Girl View : 1525 Reply : 10
 

 

No. 1



โพสกระทู้ ( 26 )
บทความ ( 0 )



สถานะออฟไลน์


ไม่มีใครพอจะช่วยได้เลยหรอคะ






Date : 2010-06-19 13:59:08 By : Pink_Girl
 


 

No. 2



โพสกระทู้ ( 1,603 )
บทความ ( 1 )



สถานะออฟไลน์


ก็พอจะช่วยได้ค่ะ แต่ลงท้ายต้องมาเขียน code ให้ดู มันยาวน่ะค่ะ
แล้วคงขอมาเป็น vb.net ตอนนี้ หมดโควต้า vb.net ละค่ะ

smart excel library with vb.net

คุณจะได้ source code ที่เขียนอ่าน excel ด้วย vb.net แบบไม่ต้องผ่าน microsoft office ค่ะ
มีตัวอย่างให้อยู่แล้ว ลองทำดูนะคะ
Date : 2010-06-19 14:59:12 By : blurEyes
 

 

No. 3



โพสกระทู้ ( 26 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณนะคะ ที่พยายามจะช่วย
แต่คงฉลาดน้อยไปหน่อย เลยอ่านแล้วไม่ค่อยเข้าใจ ถ้ามีแบบที่เข้าใจง่ายกว่านี้ ช่วยเอามาฝากหน่อยนะคะ
Date : 2010-06-19 15:15:36 By : Pink_Girl
 


 

No. 4



โพสกระทู้ ( 1,603 )
บทความ ( 1 )



สถานะออฟไลน์


ค่ะ งั้นก้อรอแบบที่ง่ายกว่านะคะ
Date : 2010-06-19 15:38:17 By : blurEyes
 


 

No. 5



โพสกระทู้ ( 198 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

dim ExcelApp as new Excel.Application
dim Row% = 2
for i% = 0 to datatable.rows.count -1
with ExcelApp
.range("a" & Row).value = datatable.rows(i)("ชื่อฟิลด์ที่ต้องการ")
.range("b" & Row).value = datatable.rows(i)("ชื่อฟิลด์ที่ต้องการ")
.range("c" & Row).value = datatable.rows(i)("ชื่อฟิลด์ที่ต้องการ")
.range("d" & Row).value = datatable.rows(i)("ชื่อฟิลด์ที่ต้องการ")
.range("e" & Row).value = datatable.rows(i)("ชื่อฟิลด์ที่ต้องการ")
.range("f" & Row).value = datatable.rows(i)("ชื่อฟิลด์ที่ต้องการ")
end with
Row +=1
next
ExcelApp.visible = true ' คำสั่งให้เปิด excel
Date : 2010-06-19 16:21:04 By : Programmer ด้อยปัญญา สำนัก ทองเสียง
 


 

No. 6



โพสกระทู้ ( 26 )
บทความ ( 0 )



สถานะออฟไลน์


ตรง "a" คืออะไรหรอคะ มัน error ตั้งแต่บรรทัดนั้นอ่ะคะ
Date : 2010-06-19 17:22:30 By : Pink_Girl
 


 

No. 7



โพสกระทู้ ( 198 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

column a ในไฟล์ excel ไงคับ
Date : 2010-06-19 23:20:47 By : Programmer ด้อยปัญญา
 


 

No. 8



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Code (VB.NET)
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Import Namespace="Excel"%>
<%@ Import Namespace="System.IO"%>
<%@ Page Language="VB" %>
<script runat="server">

Sub Page_Load(sender As Object, e As EventArgs)
Dim objConn As New OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New System.Data.DataTable

Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()

Dim strSQL As String
strSQL = "SELECT * FROM customer"

'*** Create DataTable ***'
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

'*** Export To Excel ***'
Dim FileName As String
FileName = "MyXls/MyExcel.xls"

'*** Create Excel.Application ***'
Dim xlApp As New Excel.Application
Dim xlSheet1 As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim i As Integer
Dim intRows As Integer

xlBook = xlApp.Workbooks.Add()
xlBook.Application.Visible = False

'*** Create Sheet 1 ***'
xlSheet1 = xlBook.Worksheets(1)
xlSheet1.Name = "My Sheet1"

'*** Width & Height (A1:A1) ***'
With xlApp.ActiveSheet.Range("A1:A1")
.ColumnWidth = 10.0
End With
With xlApp.ActiveSheet.Range("B1:B1")
.ColumnWidth = 13.0
End With
With xlApp.ActiveSheet.Range("C1:C1")
.ColumnWidth = 23.0
End With
With xlApp.ActiveSheet.Range("D1:D1")
.ColumnWidth = 12.0
End With
With xlApp.ActiveSheet.Range("E1:E1")
.ColumnWidth = 13.0
End With
With xlApp.ActiveSheet.Range("F1:F1")
.ColumnWidth = 12.0
End With

With xlApp.ActiveSheet.Range("A1:F1")
.BORDERS.Weight = 1
.MergeCells = True
.Font.Bold = True
.Font.Size = 20
.HorizontalAlignment = -4108
End With
With xlApp.ActiveSheet.Cells(1,1)
.Value = "Customer Report"
End With

'*** Header ***'
With xlApp.ActiveSheet.Cells(2,1)
.Value = "CustomerID"
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(2,2)
.Value = "Name"
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(2,3)
.Value = "Email"
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(2,4)
.Value = "CountryCode"
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(2,5)
.Value = "Budget"
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(2,6)
.Value = "Used"
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
'***********'

intRows = 3
For i = 0 To dt.Rows.Count - 1
'*** Detail ***'
With xlApp.ActiveSheet.Cells(intRows,1)
.Value = dt.Rows(i)("CustomerID")
.BORDERS.Weight = 1
.HorizontalAlignment = -4108
End With
With xlApp.ActiveSheet.Cells(intRows,2)
.Value = dt.Rows(i)("Name")
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(intRows,3)
.Value = dt.Rows(i)("Email")
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(intRows,4)
.Value = dt.Rows(i)("CountryCode")
.HorizontalAlignment = -4108
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(intRows,5)
.Value = FormatNumber(dt.Rows(i)("Budget"),2)
.BORDERS.Weight = 1
End With
With xlApp.ActiveSheet.Cells(intRows,6)
.Value = FormatNumber(dt.Rows(i)("Used"),2)
.BORDERS.Weight = 1
End With
intRows = intRows + 1
Next

'*** If Files Already Exist Delete files ***'
Dim MyFile As New FileInfo(Server.MapPath(FileName))
If MyFile.Exists Then
MyFile.Delete()
End IF
MyFile = Nothing

'*** Save Excel ***'
'xlSheet1.PrintOut 1 '*** Print to printer ***'
xlSheet1.SaveAs(Server.MapPath(FileName))
xlApp.Quit()

'*** Quit and Clear Object ***'
xlSheet1 = Nothing
xlBook = Nothing
xlApp = Nothing

'*** End Export To Excel ***'

Me.lblText.Text = "Excel Created <a href="& FileName & ">Click here</a> to Download."

dtAdapter = Nothing
objConn.Close()
objConn = Nothing

End Sub


</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - Excel Application</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label id="lblText" runat="server"></asp:Label>
</form>
</body>
</html>


ใช้ได้กับ VB.NET ได้เช่นเดียวกันครับ

ASP.NET Export Database to Excel Report/Print Format (Excel Application)
Date : 2010-06-20 10:17:13 By : webmaster
 


 

No. 9



โพสกระทู้ ( 26 )
บทความ ( 0 )



สถานะออฟไลน์


ทำได้แล้วแหละคะ
ขอบคุณมากนะคะ โดยเฉพาะพี่ Programmer ด้อยปัญญา
Date : 2010-06-21 11:12:40 By : Pink_Girl
 


 

No. 10



โพสกระทู้ ( 198 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

ด้วยความยินดีคับผม
Date : 2010-06-21 12:46:19 By : Programmer ด้อยปัญญา สำนัก ทองเสียง
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : win app กับ excel ถ้า select ข้อมูลมาใส่ datatable ไว้เพื่อแสดงข้อมูล แล้วพอกดปุ่ม print ก็เอาข้อมูลนั้นไปใส่ในไฟล์ excel
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่