【資料名稱】：excel to google源碼，歡迎指教　

【資料作者】：大叔

【資料日期】：2012-12-20

【資料語言】：中文

【資料格式】：DOC

【資料目錄和簡介】：

Imports System.Xml
Imports System.Linq
Imports System.Xml.Linq
Imports System.Linq.Enumerable
Imports Microsoft.office.interop

Public Class Form1
Private filename As String
Private xmlDoc As XmlDocument
Private xmlN As XmlNode
Private xmlNList As XmlNodeList

Private Sub 打開OToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 打開OToolStripMenuItem.Click
Dim fileDialog As New OpenFileDialog()
'fileDialog.InitialDirectory = Me.InitialDirectory
fileDialog.DefaultExt = "xls"
fileDialog.Filter = "Excel Documents (*.xls)|*.xls|Excel 2007 Documents (*.xlsx)|*.xlsx|all files (*.*)|*.*"
fileDialog.InitialDirectory = My.Application.Info.DirectoryPath
If (fileDialog.ShowDialog() = DialogResult.OK) Then
filename = fileDialog.FileName
LoadXmlFile()
'directory = System.IO.Path.GetDirectoryName(filename)
End If
End Sub