¡ÖWeb½ÐÈÇ¥µ¥¤¥È¡×¥Ù¡¼¥¿¸ø³«

Q&A½¸[¡©]

Åö¥µ¥¤¥È¤Ç¤Î¤´¼ÁÌä¤Î¼õÉդϽªÎ»¤·¤Þ¤·¤¿

¤¹¤Ù¤Æ¤Î¥³¥ó¥Æ¥ó¥Ä¤òÆÉ¤ß¹þ¤ßÀìÍѤȤ·¤¿¤¿¤á¡¢²óÅúÍ󤫤é¤âÅê¹Æ¤Ç¤­¤Þ¤»¤ó

Apache OpenOffice/LibreOffice¤Î¤´¼ÁÌä¤Ï¤½¤ì¤¾¤ì¤Î¥Õ¥©¡¼¥é¥à¤Ø¤´Åê¹Æ¤¯¤À¤µ¤¤

¼ÁÌ䥳¡¼¥Ê¡¼

¥µ¥¤¥ÈÆâ¸¡º÷

ʬÎà¥á¥Ë¥å¡¼

´ØÏ¢¥µ¥¤¥È


ËÜÆü¡§2
ºòÆü¡§0
Áí¿ô¡§3062
¸½ºß¡§4


½èÍý»þ´Öû½Ì¤Ë¤Ä¤¤¤Æ

¥Ú¡¼¥¸OpenOffice.org FAQ¤ÎÅÐÏ¿¥Ú¡¼¥¸
Åê¹Æ¼Ô¥¿¥¤¥¬¡¼
ʬÎà
edit/refer
Í¥Àè½ç°Ì
edit/refer
¾õÂÖ
edit/refer
¥«¥Æ¥´¥ê¡¼
edit/refer
Åê¹ÆÆü2010-12-11 18:30:51 (ÅÚ)
OSWin¡¡XP
°Í¸¤¹¤ë¥Ú¡¼¥¸
¥Ð¡¼¥¸¥ç¥ó
edit/refer

¥á¥Ã¥»¡¼¥¸

²óÅú¥Ú¡¼¥¸¤Ç¤Ï¹ÔËö¤Ë¡Ö~¡×¤òÉղ乤ëɬÍפϤ¢¤ê¤Þ¤»¤ó

¤¤¤Ä¤â¤ªÀ¤ÏäˤʤäƤª¤ê¤Þ¤¹¡£ ¥¯¥¨¥ê¡¼¤Ç¼èÆÀ¤·¤¿¥Ç¡¼¥¿¤ò¥«¥ë¥¯¤Ë½ñ¤­¹þ¤à»þ¡¢ 1¥ì¥³¡¼¥É¤òÇÛÎó¤Ë°ìöÂåÆþ¤·¤Æ¡¢°ìµ¤¤Ë¥«¥ë¥¯¤Ë½ñ¤­¹þ¤àÍͤˤ·¤Æ¤ª¤ê¤Þ¤¹¡£ Ìó3Ëü¹Ô¤Ç¥Æ¥¹¥È¤·¤¿·ë²Ì¡¢For¤Î½ê¤Ç½èÍý¤¬¤«¤Ê¤ê³Ý¤Ã¤Æ¤¤¤Þ¤¹¡£ ºÇ¸å¤ÎoRange.setDataArray(ss)¥·¡¼¥È¤Ø¤Î½ñ¤­¹þ¤ß¤Ï¤¹¤°¤Ë½èÍý¤µ¤ì¤Þ¤¹¡£

¥¨¥¯¥»¥ëVBA¤Î¾ì¹ç¤Ï¡¢.CopyFromRecordset dbRes ¤Ç°ìµ¤¤Ë¥·¡¼¥È¤Ë½ñ¤­¹þ¤à»ö¤¬¤Ç¤­¤Þ¤¹¤¬¡¢ OOoBasic¤ÇºÇ¤âƱÍͤʻö¤¬½ÐÍè¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡© Á᤯½ñ¤­½Ð¤¹ÊýË¡¤Ï¾¤Ë¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡© ¥¢¥É¥Ð¥¤¥¹µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£

OOoBasic¤Î¾ì¹ç

	Set cn = New ADODB.Connection
	Set dbRes = New ADODB.Recordset
	cmd = CreateObject("ADODB.Command")
	
	With cn
		.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
		.Open mdbURL
	End With

	cmd.ActiveConnection = Cn
	cmd.CommandTimeout = 0
	cmd.CommandText = "SELECT * FROM " & mdbTableName
	dbRes = cmd.Execute

	dim ss(mdbRecotdCount-1,Ubound(mdbFildName)) '¥Õ¥£¡¼¥ë¥É¤Î¥ì¥³¡¼¥É¿ô¤È¥Õ¥£¡¼¥ë¥É̾¤Î¸Ä¿ô¤ò»ØÄê
	If dbRes.RecordCount <> 0 Then
	If dbRes.Eof = false Then
		dbRes.MoveFirst
		Do Until dbRes.EOF
			For i=0 To Ubound(mdbFildName)
				ss(No,i) = dbRes.Fields.Item(mdbFildName(i)).Value
			Next i
			dbRes.MoveNext
			No = No +1
		Loop
	End if
	End if
	
	oRange = oSheet.getCellRangeByPosition(0,1,Ubound(mdbFildName),mdbRecotdCount)
	oRange.setDataArray(ss)
	

¡Ç---------------------------------------------------------------------

¥¨¥¯¥»¥ëVBA¤Î¾ì¹ç¡§

	Dim dbCon As ADODB.Connection
	Dim dbRes As ADODB.Recordset
	Dim m_Rane As Range
	
	¡Ç¡Á¡Á½èÍý
	Set dbRes = dbCon.Execute("SELECT * FROM " & m_TableName )

	'¥Õ¥£¡¼¥ë¥É½ñ¤­¹þ¤ß
	For i = 1 To dbRes.Fields.Count
		m_Rane.Offset(0, i - 1) = dbRes.Fields(i - 1).Name '¥Õ¥£¡¼¥ë¥É̾½ñ¤­¹þ¤ß
	Next i

	m_Rane.Offset(1, 0).CopyFromRecordset dbRes

	'¡Á¡Á½èÍý

ÊýË¡¤Ï´ö¤Ä¤«¤¢¤ê¤Þ¤¹

ike@¶å½£ (2010-12-12 14:03:51 (Æü))

¿·µ¬¥·¡¼¥È¤ÇA1¤«¤é¸ÇÄê¤Ç¹àÌÜ̾¤¢¤ê¤ÇÎɤ±¤ì¤Ð

cmd.CommandText= "SELECT * INTO [Excel 8.0;Database=" & _
"E:\target.xls" & "].[hogehoge] FROM " & ¥Æ¡¼¥Ö¥ë̾Ëô¤ÏSELECTʸ & ";"

¾åµ­¤Ç Excel ̵¤¯¤Æ¤â target.xls ¥Õ¥¡¥¤¥ë¤¬¿·µ¬ºîÀ®(¥·¡¼¥È̾hogehoge)¤µ¤ì¤ë¤Î¤Ç¡¢Calc ¤Ç³«¤±¤Ð OK¡£

¤â¤·¿÷·Á Calc ¥É¥­¥å¥á¥ó¥È¤Î»ØÄê°ÌÃ֤˽ñ¼°ÀßÄê¤ò²õ¤µ¤Ê¤¤¤Ç½ñ¤­¹þ¤ß¤¿¤¤¤Ê¤é
¡¦Èóɽ¼¨¤Ç¾åµ­¤Î xls ¥Õ¥¡¥¤¥ë¤ò³«¤¯
¡¦É¬ÍפÊÈϰϤò getDataArray ¤Ç¥Ç¡¼¥¿¼èÆÀ
¡¦¿÷·Á Calc ¤Ø setDataArray ¤ÇÁÞÆþ
¡¦Èóɽ¼¨ Calc ¤òÊĤ¸¤ë

OOo ¤Î¾ì¹ç¡¢ÅÐÏ¿¥Ç¡¼¥¿¥Ù¡¼¥¹Ì¾»ØÄ꤫¤é doImport ¥á¥½¥Ã¥É¤Ç¡¢
Êݸ¥¯¥¨¥ê¤ä¿·µ¬ SQL ¤Ç Calc ¤Î»ØÄê°ÌÃ֤˽ֻþÁÞÆþ¤Ç¤­¤Þ¤¹¤¬¡¢¹àÌÜ̾ɬ¤ºÁÞÆþ¤µ¤ì¡¢¸µ¤Î½ñ¼°¤Ï¤¹¤êÂØ¤¨¤é¤ì¤Þ¤¹¡£
¤Ê¤Î¤Ç¥»¥ë¤Î½ñ¼°¤ÏºÆÀßÄê¤ÎɬÍפ¬½Ð¤Æ¤¯¤ë¤È¤¤¤¦»ÅÍͤǤ¹¡£

Rs.getRows() ¤Ç¼èÆÀ¤·¤¿ÇÛÎó¤ò¤½¤Î¤Þ¤Þ Calc ¤Ø SetDataArray ÁÞÆþ¤¹¤ë¤È
¥Æ¥­¥¹¥È¤Ï OK¡¢ÆüÉÕ·¿¤Ï¥À¥á¡¢¿ôÃÍ¤Ï OK¡¢Ä̲߷¿¤Ï¥À¥á¤Ç¤·¤¿¡£
¥¯¥¨¥ê¤ÇÆüÉÕ·¿¤ò Double ¡¢Ä̲߷¿¤ò Long ¤ØÊÑ´¹¤·¤¿·ë²Ì¤Ê¤é OK ¤«¤â¤·¤ì¤Þ¤»¤ó¡£

»î¤·¤Æ¤ß¤Þ¤·¤¿¡Ê¤½¤Î¾ÊýË¡ÅùÍ­¤ê¤Þ¤·¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤¡Ë

¥¿¥¤¥¬¡¼ (2010-12-12 17:29:00 (Æü))

Í­Æñ¤¦¸æºÂ¤¤¤Þ¤¹¡£
¤Þ¤º¡¢½ñ¼°¤Ë¤Ä¤¤¤Æ¤Ï¡¢MDB¥Õ¥¡¥¤¥ë¤ÎÆâÍÆ¤ËÃÖ¤­´¹¤ï¤Ã¤ÆÊý¤¬Îɤ¤¤Ç¤¹¡£
¥¨¥¯¥»¥ë¥Õ¥¡¥¤¥ë¤¬PC¤Ë¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢CSV¤È¤·¤ÆÂбþ¤·¤Þ¤¹¡£

PC¤Î´Ä¶­¤Ë¤è¤ê¤Þ¤¹¤¬¡¢2Ëü¹Ô¥Ç¡¼¥¿¤Ç»î¤·¤Æ¤ß¤Þ¤·¤¿
­¡doImport¤Ç¹Ô¤Ã¤¿¾ì¹ç¡¢Ìó75Éá£
­¢CSV¥Õ¥¡¥¤¥ë¤Ø½ÐÎϤ·¤Æ¤«¤é»ØÄê¤Îods¥Õ¥¡¥¤¥ë¤Ø½ñ¤­½Ð¤·¤¿¾ì¹ç¡¢Ìó50ÉÃ
·ëÏÀ­¢¤ÎÊý¤¬¼ã´³Áᤫ¤Ã¤¿¤Ç¤¹¡£
²¼µ­¤Ë¥¶¥Ã¥¯¥ê¥³¡¼¥Éµ­ºÜ¤·¤Æ¤ª¤ê¤Þ¤¹¤¬¡¢¤½¤Î¾¤ÎÊýË¡Åù¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
ǰ¤Î°Ù­¡­¢¤Î¥³¡¼¥É¤ò¥¶¥Ã¥¯¥ê¤Ç¤Ï¤¢¤ê¤Þ¤¹¤¬µ­ºÜ¤·¤Æ¤ª¤ê¤Þ¤¹¡£

¤Þ¤¿¡¢­¢¤Î¾ì¹ç¤Î½ñ¼°ÀßÄê¤Çº¤¤Ã¤Æ¤¤¤Þ¤¹¡£
aFileProperties(1).Value = "44,34,0,1"¤Î¸å¤ÎÀßÄê¥Õ¥é¥°¤ò¥Õ¥£¡¼¥ë¥É¿ôʬÄɲ乤ë»ö
°ì¤Ä¤ÏCSV¤Ø½ÐÎϤ¹¤ë»þ¤Ë¡¢schema.ini¤¬½ÐÍè¤ë¤ß¤¿¤¤¤Ê¤Î¤Ç¤³¤³¤«¤é¾ðÊó¤ò¼è¤Ã¤¿Êý¤¬Îɤ¤¤Î¤Ç¤·¤ç¤¦¤«¡©
¤½¤Î¾¡¢Îɤ¤ÊýË¡¤¬Í­¤ê¤Þ¤·¤¿¤é¥¢¥É¥Ð¥¤¥¹¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

'­¡¥¤¥ó¥Ý¡¼¥È¤Î¾ì¹ç¡¡1ʬ15ÉÃ

	args1(0).Name = "DatabaseName"
	args1(0).Value = oTitle		'¥Ç¡¼¥¿¥Ù¡¼¥¹ÅÐÏ¿¤·¤¿Ì¾Á°
	args1(1).Name = "SourceType"
	args1(1).Value = com.sun.star.sheet.DataImportMode.TABLE
	args1(2).Name = "SourceObject"
	args1(2).Value = "¥Æ¡¼¥Ö¥ë̾"
	
	Set oSM = CreateObject("com.sun.star.ServiceManager")
	Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
	Set oDoc = oDesk.loadComponentFromURL("private:factory/scalc", "_blank", 0, args1())
	Set oSheet = oDoc.Sheets.getByName("Sheet1")
	oSheet.getCellRangebyName("A1").doImport(args1())	
	

­¢°ìöcsv¥Õ¥¡¥¤¥ë¤È¤·¤ÆÊݸ¤·¤Æcsv¥Õ¥¡¥¤¥ë¤ò³«¤­¡¢¥³¥Ô¡¼¤·¤ÆÂоݥ·¡¼¥È¤ËޤêÉÕ¤±¤ë¾ì¹ç¡¡50ÉÃ

	'MDB¤«¤éCSV¤Ø
	sql = "SELECT * INTO [TEXT;Database=" & CsvPath & "].[" & CsvFileName & "] FROM [" & mdbTableName & "];"
	Set cn = New ADODB.Connection
	Set rs = New ADODB.Recordset
	With cn
		.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
		.Open mdbURL
	End With
	rs.Open sql,cn,1,2
	
	¡ÇSCV¥Õ¥¡¥¤¥ë¤ò³«¤­
	aFileProperties(0).Name = "FilterName"
	aFileProperties(0).Value = "Text - txt - csv (StarCalc)"
	aFileProperties(1).Name = "FilterOptions"
	aFileProperties(1).Value = "44,34,0,1"	'¥Õ¥£¡¼¥ë¥É¿ôʬ¤Î¥Õ¥é¥°É¬Í×
	oDoc = StarDesktop.loadComponentFromURL(ConvertToUrl(oURL),"_blank", 0, aFileProperties())
	
	'³«¤¤¤¿CSV¥Õ¥¡¥¤¥ë¤ò¥³¥Ô¡¼¤·¤Æ
	oSheet = csvDoc.getSheets().getByIndex(0)
	oRange = oSheet.getCellRangeByName("A1")
	oCursor = oSheet.createCursorByRange(oRange)
	oCursor.collapseToCurrentRegion
	oCursor.gotoEndOfUsedArea(true)
	DataArray() = oSheet.getCellRangeByPosition(0, 0, oCursor.getColumns.Count, oCursor.getRows.Count).getDataArray()
	
	'½ñ¤­¹þ¤ß
	odsSheet.getCellRangeByPosition(x, y, oCursor.getColumns.Count + x, oCursor.getRows.Count + y).setDataArray(DataArray)

ÄɲäǤ¹¡¡¥¨¥¯¥»¥ë¤ÎÊý¤¬CSV¤è¤êÎɤ«¤Ã¤¿¤Ç¤¹

¥¿¥¤¥¬¡¼ (2010-12-12 17:56:43 (Æü))

CSV¤Ø½ÐÎϤò²¼µ­¤ËÃÖ¤­´¹¤¨¤Æ¤ä¤ê¤Þ¤·¤¿¤é¡¢²¿¤È¤«¤Ê¤ê¤½¤¦¤Ç¤¹¤Í

cmd.CommandText= "SELECT * INTO [Excel 8.0;Database=" & _
"E:\target.xls" & "].[hogehoge] FROM " & ¥Æ¡¼¥Ö¥ë̾Ëô¤ÏSELECTʸ & ";"

¸å¡¢ÆüÉÕ·¿¤ÈÄ̲߷¿¤¬º£¤Î½ê»È¤¤¤Þ¤»¤ó¤Î¤Ç¡¦¡¦¡¦
½èÍý»þ´Ö¤âCSV¤ÈÊѤï¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£

´°Î»¤Ë¤·¤¿¤¤¤È»×¤¤¤Þ¤¹

M.Kamataki (2010-12-13 10:17:58 (·î))

¥¿¥¤¥¬¡¼¤µ¤ó¡¢¤É¤¦¤Ç¤·¤ç¤¦¤«¡£

´°Î»¤ª´ê¤¤Ãפ·¤Þ¤¹

¥¿¥¤¥¬¡¼ (2010-12-13 15:40:09 (·î))

Í­Æñ¤¦¸æºÂ¤¤¤Þ¤·¤¿

¤ªÌ¾Á°:
Âê̾: