《その他》該当した記事

・ACCESS(2003)からCSVファイルへエクスポートしようとしているのですが「”オブジェクト”出力ファイル名”が見つかりません。
」というメッセージが出て実行できません。
解決方法を教えてください。


・邪道ですが。
答えが知りたいですビジュアルベーシックで以下のような問題が出されました。
本来なら参考書を見ながら試行錯誤するべきでしょうが、今ビジュアルベーシックが使えません。
もともと大の苦手で見当もつきません。
ぜひお願いしますテキストボックス(オブジェクト名 TextBox1)に2以上の整数を入力し、「判定」ボタンを押すと、入力した数が素数の場合には「(入力した数)は素数です」と表示し、素数でない場合には「(入力した数)は素数ではありません」とラベル(オブジェクト名 Label1)に表示するプログラムを書きなさい。
オブジェクト名とプロパティは以下のようですTextBox1 Text "'' ←何も入力しないということですLabel1 Text "'' Label2 Text "2以上の整数''Button1 Text "判定''です。
すみませんが回答よろしくお願いします。


・ワードについて、2点わからないことがあります。
色々探してみたのですが、解決策が見付からなかったので教えてください。
1.ワードにオブジェクト挿入で、対象ファイルを「アイコンで表示」で挿入した際に そのドキュメントタイトルの文字が潰れてしまいます。
文字が潰れない方法はないでしょうか?
2.エクセルを「形式を選択して貼り付け」で「Microsoft Office Excel ワークシート オブジェクト」選択し 挿入するのですが、こちらも貼り付けたエクセルの文字が潰れてとても見にくくなってしまいます。
文字が潰れない様な方法?
があれば教えていただきたいです。
(挿入したものを拡大する。
以外でお願いします。
)使用しているのは、WindowsXP、Officeは2003です。
どちらか一方でもわかる方がいらっしゃっいましたら、幸いです。
よろしくお願い致します。


・このVBScriptを編集してください。
「NW-X1060で、MP3のタグ情報を編集してフォルダ単位で再生する方法」http://uguisu.skr.jp/algo/folder2tag.htmlのScriptを実行すると中のmp3のアルバムの楽曲情報がそのファイルのパスが入るようになっています。
しかしこれを編集してそのフォルダ名だけにしたいのですが初心者どころかまったくわからないので編集ができません。
だれか代わりに作ってくださると編集してください。
よろしくお願いします。
現在「R:\\新しいフォルダ1\\新しいフォルダ2」内で実行すると「R:\\新しいフォルダ1\\新しいフォルダ2」となる希望「新しいフォルダ2」だけにしたいOption Explicit Private Const TARGETFOLDER = "." Call Main() WScript.Quit 0 Sub Main() Dim objFS, objFolder, objId3 ' FileSystemObject オブジェクトを作成する Set objFS = CreateObject("Scripting.FileSystemObject") ' CddbID3Tag オブジェクトを作成する Set objId3 = CreateObject("CDDBControl.CddbID3Tag") ' 指定フォルダ情報を取得する Set objFolder = objFS.GetFolder( TARGETFOLDER ) Call FindFilePathAll(objFolder, objId3) Set objFS = Nothing Set objId3 = Nothing End Sub ' 全フォルダのファイルを検索する Sub FindFilePathAll(ByVal objFolder, ByVal objId3) Dim objFile, files, subfolders, objSub Set files = objFolder.Files ' フォルダ中のファイル毎に処理を行う For Each objFile In files Call EditTagOfMP3(objFile, objId3) Next ' サブフォルダに対して再帰処理 Set subfolders = objFolder.SubFolders For Each objSub In subfolders Call FindFilePathAll(objSub, objId3) Next End Sub ' MP3のタグ情報を編集する Sub EditTagOfMP3(ByVal objFile, ByVal objId3) ' フォルダ中の mp3 ファイルだけを取得する If LCase(Right(objFile.Name, 4)) = ".mp3" Then objId3.LoadFromFile objFile.Path, False objId3.Clear ' アルバム名にファイルパスを入力する objId3.Album = Left(objFile.Path, _ Len(objFile.Path) - Len(objFile.Name)) objId3.Commit End


・パソコンに詳しい方、できれば早めにお願いします。
Webページエラーについて困っています。
このページの動画を視聴したいのですが・・・http://www.nhk.or.jp/ncon2-live/viewerlive_trial.htmlぺーじを開くと↓「Web ページ エラーの詳細ユーザー エージェント: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; YTB720; GTB6.5; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0)タイムスタンプ: Thu, 2 Sep 2010 08:32:52 UTCメッセージ: オブジェクトでサポートされていないプロパティまたはメソッドです。
」という表示が出てきてしまいます。
これはどういうことなのでしょうか。
また、どう対処すればよいのでしょうか。


・追加質問です;_;ビジュアルベーシックですビジュアルベーシックの問題に挑戦中また壁にぶつかりました・・・。
形は出来ましたが肝心の部分のコードがちんぷんかんぷんです:_:繰返しを使って3以上21以下の3つの倍数の和を計算し、ラベル(オブジェクト名Label1)に表示するコードですA B C に入る答えをお願いしますDim Total As Integer = AFor BTotal = CNextLabel1.Text = Total以上です。
すみませんがお願いいたしますm(_ _ ;)m


・アクセスでスクレイピング②結局先日回答いただいたのが実行できませんでしたモジュールレベルの宣言API利用の場合の記述について詳しく教えてください。
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongDeclare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongDeclare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongSub SAMPLE_0826()Dim W1 As LongDim W2 As LongDim W3 As LongDim L1 As StringDim DB As DatabaseDim R1 As RecordsetSet DB = CurrentDb()Set R1 = DB.OpenRecordset("テーブル2")R1.MoveFirstDo Until R1.EOFL1 = "C:\\Program Files\\Internet Explorer\\iexplore.exe " & R1!URLW1 = Shell(L1, vbNormalFocus)W2 = OpenProcess(&H100000, 1, W1)W3 = WaitForSingleObject(W2, &HFFFF)W3 = CloseHandle(W2)R1.MoveNextLoopEnd Subをどこに記述すればよいのか。
また、実際のスクレイピング処理の記述の変更もお願いします。
Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim DB As DAO.Database Set DB = CurrentDb '.tags("TD") で TDタグを抜き出す Dim objDT As Object 'テーブルオブジェクトの格納用 Set objDT = WebBrowser0.Document.ALL.tags("DT") '.tags("DT")でDTタグを抜く '.tags("TD") で TDタグを抜き出す Dim objDD As Object 'テーブルオブジェクトの格納用 Set objDD = WebBrowser0.Document.ALL.tags("DD") '.tags("DD")でTDタグを抜く Dim n As Integer Dim strCH As String For n = 0 To objDT.Length - 1 If objDT(n).InnerTEXT = "△△" Then ' strCH = objDD(n).InnerTEXT Exit For End If Next n If objDT = "noDATA" Then Debug.Print "データ項目が見つかりませんでした。
" Else DB.Execute "INSERT INTO TD(□□)" & _ " Values,'" & strCH & "'')" _ , dbFailOnError End If Set objTD = NothingEnd Sub このようなソースです


・至急お願いします2 ビジュアルベーシックについてです以下のようなビジュアルベーシックの問題を出されました。
すべて手書きのペーパテストです。
全て一行で書ける簡単な問題ということらしいのですが、分かりませんのでお知恵を拝借したいです1.Format(12.34,‘‘♯.♯♯♯♯♯)の結果2.Double型の変数Heightの値を必ず小数点以下第1位まで表示するコード3.「変数Scoreが65以上80未満」をあらわす条件式4.「変数Numberが3または5で割り切れる」を表す条件式5.変数Numberがすでに宣言されているとして、テキストボックス(オブジェクト名 TextBox1)に入力された値を数値に変換して代入するお願いしますm(_ _;)m


・クリップアートの追加は、どこのフォルダにいれればいいですか?
2003です。
Word2003です。
クリップアートの画像をまとめてダウンロードしましたが、クリップアートを挿入する一覧に表示されません。
オーガナイザの利用などマニュアルをみてもよくわかりません。
オフィスオンラインにトレーニングというヘルプのようなものがありましたが、いっぱい書いてあって結局どうしたらいいのか全然わかりません。
JPGやGIFですが、これらを、いったいどこのフォルダに入れればいいのでしょうか。
Dドライブのオフィスフォルダの、クリップアートフォルダに入れてみても、表示されません。
ちなみに、今回は、別のサイトからのオブジェクトでしたが、オフィスオンラインからダウンロードしても、入るべきところに入らないようで、うまく表示がでません。
どこの保存すればwordやエクセルから見れるようになりますか?
ちなみに、過去の質問で、マイドキュメントでいいんじゃないの という回答のものがありましたが、本当にそれでいいのでしょうか?
それで読み込めるとは思えないのですが、正しいのでしょうか。
よろしくおねがいします。


・至急お願いしますビジュアルベーシックについてです。
以下のような問題を出されました。
すべて手書きのペーパテストです。
全て一行で書ける簡単な問題ということらしいのですが、分かりません・・・(1)Double型の変数BMIを宣言する(2)Integer型の変数「リンゴの値段」「みかんの値段」「ぶどうの値段」を宣言する(3)変数Nameに名前が代入されているとき、ラベル(オブジェクト名Lable1)に「おはようございます、(Nameに入っている値)さん」と表示する(4)二つのテキストボックス(オブジェクト名 TextBox1と TextBox2)に入っている文字列を空白区切りで連結する。
ただし空白△で表しなさい他にもあるのですが多くなるのでまた別の質問にします。
よろしければまたお願いしますm(_ _;)m


【ブログ】 TOP


エクセル オブジェクトオブジェクト 変数オブジェクトの選択ノース オブジェクトメソッドは失敗しました オブジェクトオブジェクトブラウザスクラップ オブジェクトオブジェクト指向ビジネス オブジェクトオブジェクト 名excel オブジェクトVBA オブジェクトOLE オブジェクトオブジェクト参照がオブジェクトワード オブジェクトC# オブジェクトヘヴィーオブジェクトJavaScript オブジェクトパワーポイント オブジェクトオブジェクト トラッキングword オブジェクトオブジェクト インスタンスオブジェクト 削除オブジェクト エラーオブジェクト 選択TextBox1Label1素数オブジェクト名整数''Button1 TextTextBox1 TextLabel2 TextLabel1 Textエクスポート記事・ACCESS入力
2010秋ファッション!まだまだオールインワンジョブ・カード制度普及促進 老舗に学ぶ 若手人材の活かし方商談での折衝力・プレゼン力強化 顧客に好かれるアプローチ法を体得する10月1日からたばこの増税 電子タバコ 禁煙補助について最新・新型iPodが発売 iPod touch iPod nano iPod shuffle iOS 4.2Imagick::clone Imagick 完全なコピーを作成 PHP 写真・画像加工 編集岐阜・静岡の秋の味覚スポット|飛騨高山,白川郷,郡上八幡,浜名湖,うなぎパイゲームキャラのアイコンなど多ジャンルのアイコンをダウンロードできる「iconspedia」CentOS5.5でext4ファイルシステムを利用する方法 WEBシステム構築ext3の最大ファイルサイズとシステムサイズについて

【ブログ】 HOME